home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 18.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar 9 13|
|00000040| 3a 30 30 3a 33 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:00:32 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 64 69 72 65 64 2d 73 68 | 65 6c 6c 2e 65 6c 0a 3b |dired-sh|ell.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 64 69 72 65 | (erro|r "`dire|
|000001f0| 64 2d 73 68 65 6c 6c 2e | 65 6c 27 20 77 61 73 20 |d-shell.|el' was |
|00000200| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|00000210| 63 73 20 32 30 22 29 29 | 0a 0a 28 6f 72 20 28 62 |cs 20"))|..(or (b|
|00000220| 6f 75 6e 64 70 20 27 63 | 75 72 72 65 6e 74 2d 6c |oundp 'c|urrent-l|
|00000230| 6f 61 64 2d 6c 69 73 74 | 29 20 28 73 65 74 71 20 |oad-list|) (setq |
|00000240| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000250| 74 20 6e 69 6c 29 29 0a | 0a 0a 28 62 79 74 65 2d |t nil)).|..(byte-|
|00000260| 63 6f 64 65 20 22 c0 c1 | 21 88 c2 c3 21 88 c4 c5 |code "..|!...!...|
|00000270| c6 5c 22 87 22 20 5b 70 | 72 6f 76 69 64 65 20 64 |.\"." [p|rovide d|
|00000280| 69 72 65 64 2d 73 68 65 | 6c 6c 20 72 65 71 75 69 |ired-she|ll requi|
|00000290| 72 65 20 64 69 72 65 64 | 20 61 75 74 6f 6c 6f 61 |re dired| autoloa|
|000002a0| 64 20 63 6f 6d 69 6e 74 | 2d 6d 6f 64 65 20 22 63 |d comint|-mode "c|
|000002b0| 6f 6d 69 6e 74 22 5d 20 | 33 29 0a 23 40 33 37 20 |omint"] |3).#@37 |
|000002c0| 43 6f 6d 6d 61 6e 64 20 | 74 6f 20 70 72 69 6e 74 |Command |to print|
|000002d0| 20 61 20 70 6f 73 74 73 | 63 72 69 70 74 20 66 69 | a posts|cript fi|
|000002e0| 6c 65 2e 1f 0a 28 64 65 | 66 76 61 72 20 64 69 72 |le...(de|fvar dir|
|000002f0| 65 64 2d 70 6f 73 74 73 | 63 72 69 70 74 2d 70 72 |ed-posts|cript-pr|
|00000300| 69 6e 74 2d 63 6f 6d 6d | 61 6e 64 20 28 62 79 74 |int-comm|and (byt|
|00000310| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 8f 87 22 20 5b |e-code "|....." [|
|00000320| 6e 69 6c 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nil (byt|e-code "|
|00000330| c0 c1 21 88 5c 6e c3 c4 | c5 c6 0e 07 5c 22 21 51 |..!.\n..|....\"!Q|
|00000340| 87 22 20 5b 72 65 71 75 | 69 72 65 20 70 73 2d 70 |." [requ|ire ps-p|
|00000350| 72 69 6e 74 20 70 73 2d | 6c 70 72 2d 63 6f 6d 6d |rint ps-|lpr-comm|
|00000360| 61 6e 64 20 22 20 22 20 | 70 73 2d 66 6c 61 74 74 |and " " |ps-flatt|
|00000370| 65 6e 2d 6c 69 73 74 20 | 6d 61 70 63 61 72 20 70 |en-list |mapcar p|
|00000380| 73 2d 65 76 61 6c 2d 73 | 77 69 74 63 68 20 70 73 |s-eval-s|witch ps|
|00000390| 2d 6c 70 72 2d 73 77 69 | 74 63 68 65 73 5d 20 36 |-lpr-swi|tches] 6|
|000003a0| 29 20 28 28 65 72 72 6f | 72 20 28 62 79 74 65 2d |) ((erro|r (byte-|
|000003b0| 63 6f 64 65 20 22 c0 c1 | 21 ab 83 09 aa 89 5c 6e |code "..|!.....\n|
|000003c0| c3 73 ab 83 c4 aa 81 c5 | c0 c6 21 ab 8f 0e 06 ab |.s......|..!.....|
|000003d0| 8b c7 c8 c9 0e 06 c7 23 | c7 51 aa 81 c7 50 87 22 |.......#|.Q...P."|
|000003e0| 20 5b 62 6f 75 6e 64 70 | 20 6c 70 72 2d 63 6f 6d | [boundp| lpr-com|
|000003f0| 6d 61 6e 64 20 73 79 73 | 74 65 6d 2d 74 79 70 65 |mand sys|tem-type|
|00000400| 20 28 75 73 67 2d 75 6e | 69 78 2d 76 20 68 70 75 | (usg-un|ix-v hpu|
|00000410| 78 20 73 69 6c 69 63 6f | 6e 2d 67 72 61 70 68 69 |x silico|n-graphi|
|00000420| 63 73 2d 75 6e 69 78 29 | 20 22 6c 70 22 20 22 6c |cs-unix)| "lp" "l|
|00000430| 70 72 22 20 6c 70 72 2d | 73 77 69 74 63 68 65 73 |pr" lpr-|switches|
|00000440| 20 22 20 22 20 6d 61 70 | 63 6f 6e 63 61 74 20 69 | " " map|concat i|
|00000450| 64 65 6e 74 69 74 79 5d | 20 36 29 29 29 5d 20 33 |dentity]| 6)))] 3|
|00000460| 29 20 28 23 24 20 2e 20 | 37 30 34 29 29 0a 23 40 |) (#$ . |704)).#@|
|00000470| 33 31 20 43 6f 6d 6d 61 | 6e 64 20 74 6f 20 70 72 |31 Comma|nd to pr|
|00000480| 69 6e 74 20 61 20 74 65 | 78 74 20 66 69 6c 65 2e |int a te|xt file.|
|00000490| 1f 0a 28 64 65 66 76 61 | 72 20 64 69 72 65 64 2d |..(defva|r dired-|
|000004a0| 74 65 78 74 2d 70 72 69 | 6e 74 2d 63 6f 6d 6d 61 |text-pri|nt-comma|
|000004b0| 6e 64 20 28 63 6f 6e 63 | 61 74 20 64 69 72 65 64 |nd (conc|at dired|
|000004c0| 2d 70 6f 73 74 73 63 72 | 69 70 74 2d 70 72 69 6e |-postscr|ipt-prin|
|000004d0| 74 2d 63 6f 6d 6d 61 6e | 64 20 22 2d 70 20 22 29 |t-comman|d "-p ")|
|000004e0| 20 28 23 24 20 2e 20 31 | 31 33 39 29 29 0a 23 40 | (#$ . 1|139)).#@|
|000004f0| 31 34 31 20 41 6c 69 73 | 74 20 6f 66 20 72 65 67 |141 Alis|t of reg|
|00000500| 65 78 70 73 20 61 6e 64 | 20 70 72 69 6e 74 20 63 |exps and| print c|
|00000510| 6f 6d 6d 61 6e 64 73 2e | 0a 54 68 69 73 20 69 73 |ommands.|.This is|
|00000520| 20 75 73 65 64 20 62 79 | 20 60 64 69 72 65 64 2d | used by| `dired-|
|00000530| 64 6f 2d 70 72 69 6e 74 | 27 20 74 6f 20 64 65 74 |do-print|' to det|
|00000540| 65 72 6d 69 6e 65 20 74 | 68 65 20 64 65 66 61 75 |ermine t|he defau|
|00000550| 6c 74 20 70 72 69 6e 74 | 20 63 6f 6d 6d 61 6e 64 |lt print| command|
|00000560| 20 66 6f 72 0a 70 72 69 | 6e 74 69 6e 67 20 74 68 | for.pri|nting th|
|00000570| 65 20 6d 61 72 6b 65 64 | 20 66 69 6c 65 73 2e 1f |e marked| files..|
|00000580| 0a 28 64 65 66 76 61 72 | 20 64 69 72 65 64 2d 70 |.(defvar| dired-p|
|00000590| 72 69 6e 74 2d 70 72 6f | 67 72 61 6d 2d 61 6c 69 |rint-pro|gram-ali|
|000005a0| 73 74 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |st (byte|-code ".|
|000005b0| c1 5c 6e 50 42 c3 c4 5c | 6e 50 42 c5 c6 5c 6e 50 |.\nPB..\|nPB..\nP|
|000005c0| 42 c7 c8 5c 6e 50 42 c9 | 5c 6e 42 ca c8 5c 6e 50 |B..\nPB.|\nB..\nP|
|000005d0| 42 cb cc 42 cd 0e 0e 42 | af 08 87 22 20 5b 22 5c |B..B...B|..." ["\|
|000005e0| 5c 2e 67 69 66 24 22 20 | 22 67 69 66 74 6f 70 70 |\.gif$" |"giftopp|
|000005f0| 6d 20 2a 20 7c 20 70 70 | 6d 74 6f 70 67 6d 20 7c |m * | pp|mtopgm ||
|00000600| 20 70 6e 6d 74 6f 70 73 | 20 7c 20 22 20 64 69 72 | pnmtops| | " dir|
|00000610| 65 64 2d 70 6f 73 74 73 | 63 72 69 70 74 2d 70 72 |ed-posts|cript-pr|
|00000620| 69 6e 74 2d 63 6f 6d 6d | 61 6e 64 20 22 5c 5c 2e |int-comm|and "\\.|
|00000630| 5c 5c 28 66 74 73 5c 5c | 7c 46 54 53 5c 5c 29 24 |\\(fts\\||FTS\\)$|
|00000640| 22 20 22 66 69 74 73 74 | 6f 70 67 6d 20 2a 20 7c |" "fitst|opgm * ||
|00000650| 20 70 6e 6d 74 6f 70 73 | 20 7c 20 22 20 22 5c 5c | pnmtops| | " "\\|
|00000660| 2e 5c 5c 28 4a 50 47 5c | 5c 7c 6a 70 67 5c 5c 29 |.\\(JPG\|\|jpg\\)|
|00000670| 24 22 20 22 64 6a 70 65 | 67 20 2d 50 67 20 2a 20 |$" "djpe|g -Pg * |
|00000680| 7c 20 70 6e 6d 74 6f 70 | 73 20 7c 20 22 20 22 5c || pnmtop|s | " "\|
|00000690| 5c 2e 70 73 5c 5c 2e 5c | 5c 28 67 7a 5c 5c 7c 5a |\.ps\\.\|\(gz\\|Z|
|000006a0| 5c 5c 29 24 22 20 22 7a | 63 61 74 20 2a 20 7c 20 |\\)$" "z|cat * | |
|000006b0| 22 20 22 5c 5c 2e 70 73 | 24 22 20 22 5c 5c 2e 5c |" "\\.ps|$" "\\.\|
|000006c0| 5c 28 67 7a 5c 5c 7c 5a | 5c 5c 29 24 22 20 22 5c |\(gz\\|Z|\\)$" "\|
|000006d0| 5c 2e 64 76 69 24 22 20 | 22 64 76 69 70 73 22 20 |\.dvi$" |"dvips" |
|000006e0| 22 2e 2a 22 20 64 69 72 | 65 64 2d 74 65 78 74 2d |".*" dir|ed-text-|
|000006f0| 70 72 69 6e 74 2d 63 6f | 6d 6d 61 6e 64 5d 20 39 |print-co|mmand] 9|
|00000700| 29 20 28 23 24 20 2e 20 | 31 32 36 38 29 29 0a 23 |) (#$ . |1268)).#|
|00000710| 40 33 38 30 20 2a 41 6c | 69 73 74 20 6f 66 20 72 |@380 *Al|ist of r|
|00000720| 65 67 65 78 70 73 20 61 | 6e 64 20 63 6f 6d 6d 61 |egexps a|nd comma|
|00000730| 6e 64 20 6c 69 73 74 73 | 20 74 6f 20 67 75 65 73 |nd lists| to gues|
|00000740| 73 20 73 68 65 6c 6c 20 | 63 6f 6d 6d 61 6e 64 73 |s shell |commands|
|00000750| 2e 0a 45 61 63 68 20 65 | 6c 65 6d 65 6e 74 20 6f |..Each e|lement o|
|00000760| 66 20 74 68 69 73 20 6c | 69 73 74 20 73 68 6f 75 |f this l|ist shou|
|00000770| 6c 64 20 62 65 20 61 20 | 6c 69 73 74 20 6f 66 20 |ld be a |list of |
|00000780| 72 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |regular |expressi|
|00000790| 6f 6e 2c 20 61 6e 64 20 | 61 20 6c 69 73 74 0a 6f |on, and |a list.o|
|000007a0| 66 20 67 75 65 73 73 65 | 73 20 66 6f 72 20 73 68 |f guesse|s for sh|
|000007b0| 65 6c 6c 20 63 6f 6d 6d | 61 6e 64 73 20 74 6f 20 |ell comm|ands to |
|000007c0| 62 65 20 75 73 65 64 20 | 69 66 20 74 68 65 20 66 |be used |if the f|
|000007d0| 69 6c 65 20 6e 61 6d 65 | 20 6d 61 74 63 68 65 73 |ile name| matches|
|000007e0| 20 74 68 65 20 72 65 67 | 75 6c 61 72 0a 65 78 70 | the reg|ular.exp|
|000007f0| 72 65 73 73 69 6f 6e 2e | 20 54 68 65 20 6c 69 73 |ression.| The lis|
|00000800| 74 20 6f 66 20 67 75 65 | 73 73 65 73 20 69 73 20 |t of gue|sses is |
|00000810| 65 76 61 6c 6c 65 64 2e | 20 54 68 69 73 20 61 6c |evalled.| This al|
|00000820| 69 73 74 20 69 73 20 61 | 70 70 65 6e 64 65 64 20 |ist is a|ppended |
|00000830| 74 6f 20 74 68 65 20 66 | 72 6f 6e 74 0a 6f 66 20 |to the f|ront.of |
|00000840| 64 69 72 65 64 2d 64 65 | 66 61 75 6c 74 2d 61 75 |dired-de|fault-au|
|00000850| 74 6f 2d 73 68 65 6c 6c | 2d 63 6f 6d 6d 61 6e 64 |to-shell|-command|
|00000860| 2d 61 6c 69 73 74 20 62 | 65 66 6f 72 65 20 70 72 |-alist b|efore pr|
|00000870| 6f 6d 70 74 69 6e 67 20 | 66 6f 72 20 65 61 63 68 |ompting |for each|
|00000880| 20 73 68 65 6c 6c 0a 63 | 6f 6d 6d 61 6e 64 2e 1f | shell.c|ommand..|
|00000890| 0a 28 64 65 66 76 61 72 | 20 64 69 72 65 64 2d 61 |.(defvar| dired-a|
|000008a0| 75 74 6f 2d 73 68 65 6c | 6c 2d 63 6f 6d 6d 61 6e |uto-shel|l-comman|
|000008b0| 64 2d 61 6c 69 73 74 20 | 6e 69 6c 20 28 23 24 20 |d-alist |nil (#$ |
|000008c0| 2e 20 2d 31 38 31 33 29 | 29 0a 23 40 31 32 30 20 |. -1813)|).#@120 |
|000008d0| 44 65 66 61 75 6c 74 20 | 66 6f 72 20 76 61 72 69 |Default |for vari|
|000008e0| 61 62 6c 65 20 60 64 69 | 72 65 64 2d 61 75 74 6f |able `di|red-auto|
|000008f0| 2d 73 68 65 6c 6c 2d 63 | 6f 6d 6d 61 6e 64 2d 61 |-shell-c|ommand-a|
|00000900| 6c 69 73 74 27 20 28 77 | 68 69 63 68 20 73 65 65 |list' (w|hich see|
|00000910| 29 2e 0a 53 65 74 20 74 | 68 69 73 20 74 6f 20 6e |)..Set t|his to n|
|00000920| 69 6c 20 74 6f 20 74 75 | 72 6e 20 6f 66 66 20 73 |il to tu|rn off s|
|00000930| 68 65 6c 6c 20 63 6f 6d | 6d 61 6e 64 20 67 75 65 |hell com|mand gue|
|00000940| 73 73 69 6e 67 2e 1f 0a | 28 64 65 66 76 61 72 20 |ssing...|(defvar |
|00000950| 64 69 72 65 64 2d 64 65 | 66 61 75 6c 74 2d 61 75 |dired-de|fault-au|
|00000960| 74 6f 2d 73 68 65 6c 6c | 2d 63 6f 6d 6d 61 6e 64 |to-shell|-command|
|00000970| 2d 61 6c 69 73 74 20 28 | 62 79 74 65 2d 63 6f 64 |-alist (|byte-cod|
|00000980| 65 20 22 c0 c1 c2 c3 c4 | c5 c6 c7 c8 c9 ca cb cc |e ".....|........|
|00000990| cd ce cf d0 d1 d2 d3 0e | 14 d5 61 ab 8a 0e 16 ab |........|..a.....|
|000009a0| 83 d7 aa 8b d8 aa 88 0e | 16 ab 83 d9 aa 81 da db |........|........|
|000009b0| af 16 87 22 20 5b 28 22 | 5c 5c 2e 74 61 72 24 22 |..." [("|\\.tar$"|
|000009c0| 20 28 69 66 20 64 69 72 | 65 64 2d 67 6e 75 74 61 | (if dir|ed-gnuta|
|000009d0| 72 2d 70 72 6f 67 72 61 | 6d 20 28 63 6f 6e 63 61 |r-progra|m (conca|
|000009e0| 74 20 64 69 72 65 64 2d | 67 6e 75 74 61 72 2d 70 |t dired-|gnutar-p|
|000009f0| 72 6f 67 72 61 6d 20 22 | 20 78 76 66 22 29 20 22 |rogram "| xvf") "|
|00000a00| 74 61 72 20 78 76 66 22 | 29 20 28 69 66 20 64 69 |tar xvf"|) (if di|
|00000a10| 72 65 64 2d 67 6e 75 74 | 61 72 2d 70 72 6f 67 72 |red-gnut|ar-progr|
|00000a20| 61 6d 20 28 63 6f 6e 63 | 61 74 20 64 69 72 65 64 |am (conc|at dired|
|00000a30| 2d 67 6e 75 74 61 72 2d | 70 72 6f 67 72 61 6d 20 |-gnutar-|program |
|00000a40| 22 20 74 76 66 22 29 20 | 22 74 61 72 20 74 76 66 |" tvf") |"tar tvf|
|00000a50| 22 29 29 20 28 22 5c 5c | 2e 74 61 72 5c 5c 2e 5c |")) ("\\|.tar\\.\|
|00000a60| 5c 28 5b 7a 5a 5d 5c 5c | 7c 67 7a 5c 5c 29 5c 5c |\([zZ]\\||gz\\)\\|
|00000a70| 7c 5c 5c 2e 74 67 7a 24 | 22 20 28 69 66 20 64 69 ||\\.tgz$|" (if di|
|00000a80| 72 65 64 2d 67 6e 75 74 | 61 72 2d 70 72 6f 67 72 |red-gnut|ar-progr|
|00000a90| 61 6d 20 28 63 6f 6e 63 | 61 74 20 64 69 72 65 64 |am (conc|at dired|
|00000aa0| 2d 67 6e 75 74 61 72 2d | 70 72 6f 67 72 61 6d 20 |-gnutar-|program |
|00000ab0| 22 20 7a 78 76 66 22 29 | 20 22 7a 63 61 74 20 2a |" zxvf")| "zcat *|
|00000ac0| 20 7c 20 74 61 72 20 78 | 76 66 20 2d 22 29 20 28 | | tar x|vf -") (|
|00000ad0| 69 66 20 64 69 72 65 64 | 2d 67 6e 75 74 61 72 2d |if dired|-gnutar-|
|00000ae0| 70 72 6f 67 72 61 6d 20 | 28 63 6f 6e 63 61 74 20 |program |(concat |
|00000af0| 64 69 72 65 64 2d 67 6e | 75 74 61 72 2d 70 72 6f |dired-gn|utar-pro|
|00000b00| 67 72 61 6d 20 22 20 7a | 74 76 66 22 29 20 22 7a |gram " z|tvf") "z|
|00000b10| 63 61 74 20 2a 20 7c 20 | 74 61 72 20 74 76 66 20 |cat * | |tar tvf |
|00000b20| 2d 22 29 29 20 28 22 5c | 5c 2e 73 68 61 72 2e 5b |-")) ("\|\.shar.[|
|00000b30| 7a 5a 5d 24 22 20 28 69 | 66 20 64 69 72 65 64 2d |zZ]$" (i|f dired-|
|00000b40| 75 6e 73 68 61 72 2d 70 | 72 6f 67 72 61 6d 20 28 |unshar-p|rogram (|
|00000b50| 63 6f 6e 63 61 74 20 22 | 7a 63 61 74 20 2a 20 7c |concat "|zcat * ||
|00000b60| 20 22 20 64 69 72 65 64 | 2d 75 6e 73 68 61 72 2d | " dired|-unshar-|
|00000b70| 70 72 6f 67 72 61 6d 29 | 20 22 7a 63 61 74 20 2a |program)| "zcat *|
|00000b80| 20 7c 20 73 68 22 29 29 | 20 28 22 5c 5c 2e 7a 6f | | sh"))| ("\\.zo|
|00000b90| 6f 24 22 20 22 7a 6f 6f | 20 78 2f 2f 22 29 20 28 |o$" "zoo| x//") (|
|00000ba0| 22 5c 5c 2e 7a 69 70 24 | 22 20 22 75 6e 7a 69 70 |"\\.zip$|" "unzip|
|00000bb0| 22 20 22 75 6e 7a 69 70 | 20 2d 76 22 29 20 28 22 |" "unzip| -v") ("|
|00000bc0| 5c 5c 2e 6c 7a 68 24 22 | 20 22 6c 68 61 72 63 20 |\\.lzh$"| "lharc |
|00000bd0| 78 22 29 20 28 22 5c 5c | 2e 61 72 63 24 22 20 22 |x") ("\\|.arc$" "|
|00000be0| 61 72 63 20 78 22 29 20 | 28 22 5c 5c 2e 73 68 61 |arc x") |("\\.sha|
|00000bf0| 72 24 22 20 28 69 66 20 | 64 69 72 65 64 2d 75 6e |r$" (if |dired-un|
|00000c00| 73 68 61 72 2d 70 72 6f | 67 72 61 6d 20 64 69 72 |shar-pro|gram dir|
|00000c10| 65 64 2d 75 6e 73 68 61 | 72 2d 70 72 6f 67 72 61 |ed-unsha|r-progra|
|00000c20| 6d 20 22 73 68 22 29 29 | 20 28 22 5c 5c 2e 75 75 |m "sh"))| ("\\.uu|
|00000c30| 24 22 20 22 75 75 64 65 | 63 6f 64 65 22 29 20 28 |$" "uude|code") (|
|00000c40| 22 5c 5c 2e 68 71 78 24 | 22 20 22 6d 63 76 65 72 |"\\.hqx$|" "mcver|
|00000c50| 74 22 29 20 28 22 5c 5c | 2e 73 68 24 22 20 22 73 |t") ("\\|.sh$" "s|
|00000c60| 68 22 29 20 28 22 5e 5b | 4d 6d 5d 61 6b 65 66 69 |h") ("^[|Mm]akefi|
|00000c70| 6c 65 24 22 20 22 6d 61 | 6b 65 20 2d 66 20 2a 22 |le$" "ma|ke -f *"|
|00000c80| 29 20 28 22 5c 5c 2e 64 | 69 66 66 24 22 20 22 70 |) ("\\.d|iff$" "p|
|00000c90| 61 74 63 68 20 2d 74 20 | 3c 22 29 20 28 22 5c 5c |atch -t |<") ("\\|
|00000ca0| 2e 78 62 6d 24 22 20 22 | 62 69 74 6d 61 70 22 29 |.xbm$" "|bitmap")|
|00000cb0| 20 28 22 5c 5c 2e 67 70 | 24 22 20 22 67 6e 75 70 | ("\\.gp|$" "gnup|
|00000cc0| 6c 6f 74 22 29 20 28 22 | 5c 5c 2e 67 69 66 24 22 |lot") ("|\\.gif$"|
|00000cd0| 20 22 78 76 22 29 20 28 | 22 5c 5c 2e 66 69 67 24 | "xv") (|"\\.fig$|
|00000ce0| 22 20 22 78 66 69 67 22 | 29 20 28 22 5c 5c 2e 70 |" "xfig"|) ("\\.p|
|00000cf0| 73 24 22 20 22 67 68 6f | 73 74 76 69 65 77 22 29 |s$" "gho|stview")|
|00000d00| 20 28 22 5c 5c 2e 74 65 | 78 24 22 20 22 6c 61 74 | ("\\.te|x$" "lat|
|00000d10| 65 78 22 20 22 74 65 78 | 22 29 20 28 22 5c 5c 2e |ex" "tex|") ("\\.|
|00000d20| 74 65 78 69 5c 5c 28 6e | 66 6f 5c 5c 29 3f 24 22 |texi\\(n|fo\\)?$"|
|00000d30| 20 22 6d 61 6b 65 69 6e | 66 6f 22 20 22 74 65 78 | "makein|fo" "tex|
|00000d40| 69 32 64 76 69 22 29 20 | 77 69 6e 64 6f 77 2d 73 |i2dvi") |window-s|
|00000d50| 79 73 74 65 6d 20 78 20 | 64 69 72 65 64 2d 75 73 |ystem x |dired-us|
|00000d60| 65 2d 66 69 6c 65 2d 74 | 72 61 6e 73 66 6f 72 6d |e-file-t|ransform|
|00000d70| 65 72 73 20 28 22 5c 5c | 2e 64 76 69 24 22 20 22 |ers ("\\|.dvi$" "|
|00000d80| 78 64 76 69 22 20 22 64 | 76 69 70 73 20 2d 6f 20 |xdvi" "d|vips -o |
|00000d90| 2a 62 2e 70 73 20 2a 22 | 29 20 28 22 5c 5c 2e 64 |*b.ps *"|) ("\\.d|
|00000da0| 76 69 24 22 20 22 78 64 | 76 69 22 20 22 64 76 69 |vi$" "xd|vi" "dvi|
|00000db0| 70 73 22 29 20 28 22 5c | 5c 2e 64 76 69 24 22 20 |ps") ("\|\.dvi$" |
|00000dc0| 22 64 76 69 70 73 20 2d | 6f 20 2a 62 2e 70 73 20 |"dvips -|o *b.ps |
|00000dd0| 2a 22 29 20 28 22 5c 5c | 2e 64 76 69 24 22 20 22 |*") ("\\|.dvi$" "|
|00000de0| 64 76 69 70 73 22 29 20 | 28 22 2e 22 20 28 69 66 |dvips") |("." (if|
|00000df0| 20 28 3e 20 28 6c 65 6e | 67 74 68 20 66 69 6c 65 | (> (len|gth file|
|00000e00| 73 29 20 31 29 20 22 74 | 61 72 20 63 76 66 20 22 |s) 1) "t|ar cvf "|
|00000e10| 20 28 61 6e 64 20 28 3d | 20 28 6c 65 6e 67 74 68 | (and (=| (length|
|00000e20| 20 66 69 6c 65 73 29 20 | 31 29 20 28 66 69 6c 65 | files) |1) (file|
|00000e30| 2d 64 69 72 65 63 74 6f | 72 79 2d 70 20 28 65 78 |-directo|ry-p (ex|
|00000e40| 70 61 6e 64 2d 66 69 6c | 65 2d 6e 61 6d 65 20 28 |pand-fil|e-name (|
|00000e50| 63 61 72 20 66 69 6c 65 | 73 29 20 28 64 69 72 65 |car file|s) (dire|
|00000e60| 64 2d 63 75 72 72 65 6e | 74 2d 64 69 72 65 63 74 |d-curren|t-direct|
|00000e70| 6f 72 79 29 29 29 20 28 | 63 6f 6e 63 61 74 20 22 |ory))) (|concat "|
|00000e80| 74 61 72 20 63 76 66 20 | 22 20 28 66 69 6c 65 2d |tar cvf |" (file-|
|00000e90| 6e 61 6d 65 2d 6e 6f 6e | 64 69 72 65 63 74 6f 72 |name-non|director|
|00000ea0| 79 20 28 64 69 72 65 63 | 74 6f 72 79 2d 66 69 6c |y (direc|tory-fil|
|00000eb0| 65 2d 6e 61 6d 65 20 28 | 63 61 72 20 66 69 6c 65 |e-name (|car file|
|00000ec0| 73 29 29 29 20 22 2e 74 | 61 72 22 29 29 29 29 5d |s))) ".t|ar"))))]|
|00000ed0| 20 32 32 29 20 28 23 24 | 20 2e 20 32 32 35 36 29 | 22) (#$| . 2256)|
|00000ee0| 29 0a 23 40 35 32 20 50 | 72 65 70 65 6e 64 65 64 |).#@52 P|repended|
|00000ef0| 20 74 6f 20 6d 61 72 6b | 65 64 20 66 69 6c 65 73 | to mark|ed files|
|00000f00| 20 69 6e 20 64 69 72 65 | 64 20 73 68 65 6c 6c 20 | in dire|d shell |
|00000f10| 63 6f 6d 6d 61 6e 64 73 | 2e 1f 0a 28 64 65 66 76 |commands|...(defv|
|00000f20| 61 72 20 64 69 72 65 64 | 2d 73 68 65 6c 6c 2d 70 |ar dired|-shell-p|
|00000f30| 72 65 66 69 78 20 22 22 | 20 28 23 24 20 2e 20 33 |refix ""| (#$ . 3|
|00000f40| 38 31 35 29 29 0a 23 40 | 35 31 20 41 70 70 65 6e |815)).#@|51 Appen|
|00000f50| 64 65 64 20 74 6f 20 6d | 61 72 6b 65 64 20 66 69 |ded to m|arked fi|
|00000f60| 6c 65 73 20 69 6e 20 64 | 69 72 65 64 20 73 68 65 |les in d|ired she|
|00000f70| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 73 2e 1f 0a 28 64 |ll comma|nds...(d|
|00000f80| 65 66 76 61 72 20 64 69 | 72 65 64 2d 73 68 65 6c |efvar di|red-shel|
|00000f90| 6c 2d 70 6f 73 74 66 69 | 78 20 22 22 20 28 23 24 |l-postfi|x "" (#$|
|00000fa0| 20 2e 20 33 39 31 35 29 | 29 0a 23 40 34 39 20 53 | . 3915)|).#@49 S|
|00000fb0| 65 70 61 72 61 74 65 73 | 20 6d 61 72 6b 65 64 20 |eparates| marked |
|00000fc0| 66 69 6c 65 73 20 69 6e | 20 64 69 72 65 64 20 73 |files in| dired s|
|00000fd0| 68 65 6c 6c 20 63 6f 6d | 6d 61 6e 64 73 2e 1f 0a |hell com|mands...|
|00000fe0| 28 64 65 66 76 61 72 20 | 64 69 72 65 64 2d 73 68 |(defvar |dired-sh|
|00000ff0| 65 6c 6c 2d 73 65 70 61 | 72 61 74 6f 72 20 22 20 |ell-sepa|rator " |
|00001000| 22 20 28 23 24 20 2e 20 | 34 30 31 35 29 29 0a 23 |" (#$ . |4015)).#|
|00001010| 40 39 37 20 57 69 6c 64 | 63 61 72 64 20 63 68 61 |@97 Wild|card cha|
|00001020| 72 61 63 74 65 72 20 75 | 73 65 64 20 62 79 20 64 |racter u|sed by d|
|00001030| 69 72 65 64 20 73 68 65 | 6c 6c 20 63 6f 6d 6d 61 |ired she|ll comma|
|00001040| 6e 64 73 2e 0a 49 6e 64 | 69 63 61 74 65 73 20 77 |nds..Ind|icates w|
|00001050| 68 65 72 65 20 66 69 6c | 65 20 6e 61 6d 65 73 20 |here fil|e names |
|00001060| 73 68 6f 75 6c 64 20 62 | 65 20 69 6e 73 65 72 74 |should b|e insert|
|00001070| 65 64 2e 1f 0a 28 64 65 | 66 76 61 72 20 64 69 72 |ed...(de|fvar dir|
|00001080| 65 64 2d 66 69 6c 65 2d | 77 69 6c 64 63 61 72 64 |ed-file-|wildcard|
|00001090| 20 3f 5c 2a 20 28 23 24 | 20 2e 20 34 31 31 36 29 | ?\* (#$| . 4116)|
|000010a0| 29 0a 23 40 36 39 20 44 | 65 66 69 6e 65 73 20 74 |).#@69 D|efines t|
|000010b0| 68 65 20 73 74 61 72 74 | 20 6f 66 20 61 20 73 74 |he start| of a st|
|000010c0| 72 69 6e 67 20 73 70 65 | 63 69 66 79 69 6e 67 20 |ring spe|cifying |
|000010d0| 61 20 77 6f 72 64 20 69 | 6e 20 61 20 73 68 65 6c |a word i|n a shel|
|000010e0| 6c 20 63 6f 6d 6d 61 6e | 64 2e 1f 0a 28 64 65 66 |l comman|d...(def|
|000010f0| 76 61 72 20 64 69 72 65 | 64 2d 73 68 65 6c 6c 2d |var dire|d-shell-|
|00001100| 63 6f 6d 6d 61 6e 64 2d | 73 65 70 61 72 61 74 6f |command-|separato|
|00001110| 72 73 20 27 28 3f 5c 20 | 20 3f 5c 7c 20 3f 5c 3e |rs '(?\ | ?\| ?\>|
|00001120| 20 3f 5c 3c 20 3f 5c 26 | 20 3f 5c 3b 29 20 28 23 | ?\< ?\&| ?\;) (#|
|00001130| 24 20 2e 20 34 32 36 33 | 29 29 0a 23 40 31 36 33 |$ . 4263|)).#@163|
|00001140| 20 41 6c 69 73 74 20 74 | 68 61 74 20 61 73 73 6f | Alist t|hat asso|
|00001150| 63 69 61 74 65 73 20 6b | 65 79 73 20 77 69 74 68 |ciates k|eys with|
|00001160| 20 66 69 6c 65 20 74 72 | 61 6e 73 66 6f 72 6d 65 | file tr|ansforme|
|00001170| 72 20 66 75 6e 63 74 69 | 6f 6e 73 0a 45 61 63 68 |r functi|ons.Each|
|00001180| 20 74 72 61 6e 73 66 6f | 72 6d 65 72 20 66 75 6e | transfo|rmer fun|
|00001190| 63 74 69 6f 6e 20 73 68 | 6f 75 6c 64 20 62 65 20 |ction sh|ould be |
|000011a0| 61 20 66 75 6e 63 69 6f | 6e 20 6f 66 20 6f 6e 65 |a funcio|n of one|
|000011b0| 20 61 72 67 75 6d 65 6e | 74 2c 20 74 68 65 20 66 | argumen|t, the f|
|000011c0| 69 6c 65 20 6e 61 6d 65 | 2e 0a 54 68 65 20 6b 65 |ile name|..The ke|
|000011d0| 79 73 20 61 72 65 20 63 | 68 61 72 61 63 74 65 72 |ys are c|haracter|
|000011e0| 73 2e 1f 0a 28 64 65 66 | 76 61 72 20 64 69 72 65 |s...(def|var dire|
|000011f0| 64 2d 74 72 61 6e 73 2d | 6d 61 70 20 28 62 79 74 |d-trans-|map (byt|
|00001200| 65 2d 63 6f 64 65 20 22 | c0 c1 42 c2 c3 42 c4 c5 |e-code "|..B..B..|
|00001210| 42 c6 c7 42 c8 c9 42 ca | cb 42 cc cd 42 af 07 87 |B..B..B.|.B..B...|
|00001220| 22 20 5b 3f 66 20 69 64 | 65 6e 74 69 74 79 20 3f |" [?f id|entity ?|
|00001230| 6e 20 66 69 6c 65 2d 6e | 61 6d 65 2d 6e 6f 6e 64 |n file-n|ame-nond|
|00001240| 69 72 65 63 74 6f 72 79 | 20 3f 64 20 66 69 6c 65 |irectory| ?d file|
|00001250| 2d 6e 61 6d 65 2d 64 69 | 72 65 63 74 6f 72 79 20 |-name-di|rectory |
|00001260| 3f 62 20 64 69 72 65 64 | 2d 66 69 6c 65 2d 6e 61 |?b dired|-file-na|
|00001270| 6d 65 2d 62 61 73 65 20 | 3f 65 20 64 69 72 65 64 |me-base |?e dired|
|00001280| 2d 66 69 6c 65 2d 6e 61 | 6d 65 2d 65 78 74 65 6e |-file-na|me-exten|
|00001290| 73 69 6f 6e 20 3f 76 20 | 64 69 72 65 64 2d 66 69 |sion ?v |dired-fi|
|000012a0| 6c 65 2d 6e 61 6d 65 2d | 73 61 6e 73 2d 72 63 73 |le-name-|sans-rcs|
|000012b0| 2d 65 78 74 65 6e 73 69 | 6f 6e 20 3f 7a 20 64 69 |-extensi|on ?z di|
|000012c0| 72 65 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 2d 73 61 |red-file|-name-sa|
|000012d0| 6e 73 2d 63 6f 6d 70 72 | 65 73 73 2d 65 78 74 65 |ns-compr|ess-exte|
|000012e0| 6e 73 69 6f 6e 5d 20 38 | 29 20 28 23 24 20 2e 20 |nsion] 8|) (#$ . |
|000012f0| 34 34 31 37 29 29 0a 23 | 40 39 30 20 2a 41 20 6d |4417)).#|@90 *A m|
|00001300| 61 72 6b 65 72 20 74 6f | 20 6d 61 72 6b 20 66 69 |arker to| mark fi|
|00001310| 6c 65 73 20 6f 6e 20 77 | 68 69 63 68 20 73 68 65 |les on w|hich she|
|00001320| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 73 20 66 61 69 6c |ll comma|nds fail|
|00001330| 2e 0a 49 66 20 6e 69 6c | 2c 20 73 75 63 68 20 66 |..If nil|, such f|
|00001340| 69 6c 65 73 20 61 72 65 | 20 6e 6f 74 20 6d 61 72 |iles are| not mar|
|00001350| 6b 65 64 2e 1f 0a 28 64 | 65 66 76 61 72 20 64 69 |ked...(d|efvar di|
|00001360| 72 65 64 2d 73 68 65 6c | 6c 2d 66 61 69 6c 75 72 |red-shel|l-failur|
|00001370| 65 2d 6d 61 72 6b 65 72 | 20 3f 5c 21 20 28 23 24 |e-marker| ?\! (#$|
|00001380| 20 2e 20 2d 34 38 36 30 | 29 29 0a 23 40 34 32 20 | . -4860|)).#@42 |
|00001390| 48 69 73 74 6f 72 79 20 | 6c 69 73 74 20 6f 66 20 |History |list of |
|000013a0| 70 72 65 76 69 6f 75 73 | 20 73 68 65 6c 6c 20 63 |previous| shell c|
|000013b0| 6f 6d 6d 61 6e 64 73 2e | 1f 0a 28 64 65 66 76 61 |ommands.|..(defva|
|000013c0| 72 20 73 68 65 6c 6c 2d | 63 6f 6d 6d 61 6e 64 2d |r shell-|command-|
|000013d0| 68 69 73 74 6f 72 79 20 | 6e 69 6c 20 28 23 24 20 |history |nil (#$ |
|000013e0| 2e 20 35 30 30 38 29 29 | 0a 23 40 34 32 20 48 69 |. 5008))|.#@42 Hi|
|000013f0| 73 74 6f 72 79 20 6f 66 | 20 63 6f 6d 6d 61 6e 64 |story of| command|
|00001400| 73 20 75 73 65 64 20 74 | 6f 20 70 72 69 6e 74 20 |s used t|o print |
|00001410| 66 69 6c 65 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |files...|(defvar |
|00001420| 64 69 72 65 64 2d 70 72 | 69 6e 74 2d 68 69 73 74 |dired-pr|int-hist|
|00001430| 6f 72 79 20 6e 69 6c 20 | 28 23 24 20 2e 20 35 31 |ory nil |(#$ . 51|
|00001440| 30 32 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |02)).(by|te-code |
|00001450| 22 c0 09 42 11 c0 87 22 | 20 5b 64 69 72 65 64 2d |"..B..."| [dired-|
|00001460| 73 68 65 6c 6c 2d 69 6e | 70 75 74 2d 73 74 61 72 |shell-in|put-star|
|00001470| 74 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |t curren|t-load-l|
|00001480| 69 73 74 5d 20 32 29 0a | 28 64 65 66 61 6c 69 61 |ist] 2).|(defalia|
|00001490| 73 20 27 64 69 72 65 64 | 2d 73 68 65 6c 6c 2d 71 |s 'dired|-shell-q|
|000014a0| 75 6f 74 65 20 23 5b 28 | 66 69 6c 65 6e 61 6d 65 |uote #[(|filename|
|000014b0| 29 20 22 c0 c1 c2 1b 1c | 1d c6 c7 0e 08 0c 23 ab |) ".....|......#.|
|000014c0| 97 c1 94 13 0d 0e 08 0c | 0b 4f c9 0e 08 0b 89 54 |........|.O.....T|
|000014d0| 4f 52 15 0b 54 14 aa 61 | 0d 0e 08 0c c2 4f 50 2b |OR..T..a|.....OP+|
|000014e0| 87 22 20 5b 22 22 20 30 | 20 6e 69 6c 20 65 6e 64 |." ["" 0| nil end|
|000014f0| 20 73 74 61 72 74 20 72 | 65 73 75 6c 74 20 73 74 | start r|esult st|
|00001500| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5b 5e 2d 2d |ring-mat|ch "[^--|
|00001510| 2d 30 2d 39 61 2d 7a 41 | 2d 5a 5f 2e 2f 5d 22 20 |-0-9a-zA|-Z_./]" |
|00001520| 66 69 6c 65 6e 61 6d 65 | 20 22 5c 5c 22 5d 20 36 |filename| "\\"] 6|
|00001530| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |]).(defa|lias 'di|
|00001540| 72 65 64 2d 75 6e 69 71 | 75 65 66 79 2d 6c 69 73 |red-uniq|uefy-lis|
|00001550| 74 20 23 5b 28 6c 69 73 | 74 29 20 22 c0 19 5c 6e |t #[(lis|t) "..\n|
|00001560| ab 92 5c 6e 40 09 b6 ac | 86 09 5c 6e 40 43 a4 11 |..\n@...|..\n@C..|
|00001570| 5c 6e 41 89 12 ac 6e 09 | 29 87 22 20 5b 6e 69 6c |\nA...n.|)." [nil|
|00001580| 20 72 65 73 75 6c 74 20 | 6c 69 73 74 5d 20 33 5d | result |list] 3]|
|00001590| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |).(defal|ias 'dir|
|000015a0| 65 64 2d 72 65 61 64 2d | 73 68 65 6c 6c 2d 63 6f |ed-read-|shell-co|
|000015b0| 6d 6d 61 6e 64 20 23 5b | 28 70 72 6f 6d 70 74 20 |mmand #[|(prompt |
|000015c0| 61 72 67 20 66 69 6c 65 | 73 29 20 22 c0 c1 c2 0b |arg file|s) "....|
|000015d0| c4 c5 0e 06 c7 0e 08 0b | 5c 22 5c 22 0b 26 06 87 |........|\"\".&..|
|000015e0| 22 20 5b 64 69 72 65 64 | 2d 6d 61 72 6b 2d 70 6f |" [dired|-mark-po|
|000015f0| 70 2d 75 70 20 6e 69 6c | 20 73 68 65 6c 6c 20 66 |p-up nil| shell f|
|00001600| 69 6c 65 73 20 23 5b 28 | 70 72 6f 6d 70 74 20 66 |iles #[(|prompt f|
|00001610| 69 6c 65 73 29 20 22 08 | 40 19 c2 0b 21 89 1c 47 |iles) ".|@...!..G|
|00001620| 1d c6 1e 07 c8 0d 21 ac | 91 c9 ca 0e 0b 0d 89 cc |......!.|........|
|00001630| 55 ab 83 cd aa 81 ce 24 | 16 0b 09 ab 88 0e 0b cf |U......$|........|
|00001640| 09 d0 52 16 0b d1 c4 d2 | d3 23 88 0c d4 08 21 a4 |..R.....|.#....!.|
|00001650| 14 d5 0e 0b c6 c4 23 16 | 07 d6 d7 0e 07 5c 22 ab |......#.|.....\".|
|00001660| 8c 09 ab 85 09 16 07 aa | 84 d8 d9 21 88 da 0e 07 |........|...!....|
|00001670| 08 42 21 10 0e 07 2c 87 | 22 20 5b 73 68 65 6c 6c |.B!...,.|" [shell|
|00001680| 2d 63 6f 6d 6d 61 6e 64 | 2d 68 69 73 74 6f 72 79 |-command|-history|
|00001690| 20 64 65 66 61 75 6c 74 | 20 64 69 72 65 64 2d 67 | default| dired-g|
|000016a0| 75 65 73 73 2d 64 65 66 | 61 75 6c 74 20 66 69 6c |uess-def|ault fil|
|000016b0| 65 73 20 67 75 65 73 73 | 65 73 20 6c 65 6e 20 6e |es guess|es len n|
|000016c0| 69 6c 20 63 6d 64 20 7a | 65 72 6f 70 20 66 6f 72 |il cmd z|erop for|
|000016d0| 6d 61 74 20 22 25 73 7b | 25 64 20 67 75 65 73 73 |mat "%s{|%d guess|
|000016e0| 25 73 7d 20 22 20 70 72 | 6f 6d 70 74 20 31 20 22 |%s} " pr|ompt 1 "|
|000016f0| 22 20 22 65 73 22 20 22 | 5b 22 20 22 5d 20 22 20 |" "es" "|[" "] " |
|00001700| 70 75 74 20 6e 6f 2d 64 | 65 66 61 75 6c 74 20 74 |put no-d|efault t|
|00001710| 20 63 6f 70 79 2d 73 65 | 71 75 65 6e 63 65 20 64 | copy-se|quence d|
|00001720| 69 72 65 64 2d 72 65 61 | 64 2d 77 69 74 68 2d 68 |ired-rea|d-with-h|
|00001730| 69 73 74 6f 72 79 20 73 | 74 72 69 6e 67 2d 6d 61 |istory s|tring-ma|
|00001740| 74 63 68 20 22 5e 5b 20 | 09 5c 6e 5d 2a 24 22 20 |tch "^[ |.\n]*$" |
|00001750| 65 72 72 6f 72 20 22 4e | 6f 20 73 68 65 6c 6c 20 |error "N|o shell |
|00001760| 63 6f 6d 6d 61 6e 64 20 | 67 69 76 65 6e 2e 22 20 |command |given." |
|00001770| 64 69 72 65 64 2d 75 6e | 69 71 75 65 66 79 2d 6c |dired-un|iquefy-l|
|00001780| 69 73 74 5d 20 37 5d 20 | 66 6f 72 6d 61 74 20 70 |ist] 7] |format p|
|00001790| 72 6f 6d 70 74 20 64 69 | 72 65 64 2d 6d 61 72 6b |rompt di|red-mark|
|000017a0| 2d 70 72 6f 6d 70 74 20 | 61 72 67 5d 20 31 30 5d |-prompt |arg] 10]|
|000017b0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 64 69 72 |).(defal|ias 'dir|
|000017c0| 65 64 2d 74 72 61 6e 73 | 2d 73 75 62 73 74 20 27 |ed-trans|-subst '|
|000017d0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 74 72 61 6e |(macro .| #[(tran|
|000017e0| 73 66 6f 72 6d 65 72 73 | 20 66 69 6c 65 6e 61 6d |sformers| filenam|
|000017f0| 65 20 64 69 72 29 20 22 | c0 c1 09 44 c2 5c 6e 44 |e dir) "|...D.\nD|
|00001800| c3 42 42 c4 c5 c6 c7 c8 | c9 ca cb cc cd ce cf d0 |.BB.....|........|
|00001810| d1 d0 d2 d3 c2 0e 14 d5 | 42 42 42 46 d6 42 42 42 |........|BBBF.BBB|
|00001820| 46 45 d7 42 42 42 42 46 | d8 42 42 42 87 22 20 5b |FE.BBBBF|.BBB." [|
|00001830| 6c 65 74 2a 20 74 72 61 | 6e 73 66 6f 72 6d 65 72 |let* tra|nsformer|
|00001840| 73 20 66 69 6c 65 6e 61 | 6d 65 20 28 28 6c 65 6e |s filena|me ((len|
|00001850| 20 28 6c 65 6e 67 74 68 | 20 74 72 61 6e 73 66 6f | (length| transfo|
|00001860| 72 6d 65 72 73 29 29 20 | 28 70 6f 73 20 30 29 20 |rmers)) |(pos 0) |
|00001870| 28 6c 61 73 74 20 30 29 | 20 28 74 72 61 6e 73 66 |(last 0)| (transf|
|00001880| 6f 72 6d 65 64 20 6e 69 | 6c 29 20 28 71 75 6f 74 |ormed ni|l) (quot|
|00001890| 65 64 20 6e 69 6c 29 20 | 63 68 61 72 20 72 65 73 |ed nil) |char res|
|000018a0| 75 6c 74 20 74 72 61 6e | 73 29 20 77 68 69 6c 65 |ult tran|s) while|
|000018b0| 20 28 3c 20 70 6f 73 20 | 6c 65 6e 29 20 28 73 65 | (< pos |len) (se|
|000018c0| 74 71 20 63 68 61 72 20 | 28 61 72 65 66 20 74 72 |tq char |(aref tr|
|000018d0| 61 6e 73 66 6f 72 6d 65 | 72 73 20 70 6f 73 29 29 |ansforme|rs pos))|
|000018e0| 20 63 6f 6e 64 20 28 71 | 75 6f 74 65 64 20 28 73 | cond (q|uoted (s|
|000018f0| 65 74 71 20 70 6f 73 20 | 28 31 2b 20 70 6f 73 29 |etq pos |(1+ pos)|
|00001900| 20 71 75 6f 74 65 64 20 | 6e 69 6c 29 29 20 28 28 | quoted |nil)) ((|
|00001910| 3d 20 3f 5c 5c 20 63 68 | 61 72 29 20 28 73 65 74 |= ?\\ ch|ar) (set|
|00001920| 71 20 71 75 6f 74 65 64 | 20 74 20 72 65 73 75 6c |q quoted| t resul|
|00001930| 74 20 28 63 6f 6e 63 61 | 74 20 72 65 73 75 6c 74 |t (conca|t result|
|00001940| 20 28 73 75 62 73 74 72 | 69 6e 67 20 74 72 61 6e | (substr|ing tran|
|00001950| 73 66 6f 72 6d 65 72 73 | 20 6c 61 73 74 20 70 6f |sformers| last po|
|00001960| 73 29 29 20 70 6f 73 20 | 28 31 2b 20 70 6f 73 29 |s)) pos |(1+ pos)|
|00001970| 20 6c 61 73 74 20 70 6f | 73 29 29 20 28 61 6e 64 | last po|s)) (and|
|00001980| 20 28 6e 75 6c 6c 20 71 | 75 6f 74 65 64 29 20 28 | (null q|uoted) (|
|00001990| 3d 20 63 68 61 72 20 64 | 69 72 65 64 2d 66 69 6c |= char d|ired-fil|
|000019a0| 65 2d 77 69 6c 64 63 61 | 72 64 29 29 20 28 73 65 |e-wildca|rd)) (se|
|000019b0| 74 71 20 70 6f 73 20 28 | 31 2b 20 70 6f 73 29 20 |tq pos (|1+ pos) |
|000019c0| 74 72 61 6e 73 20 28 61 | 6e 64 20 28 3c 20 70 6f |trans (a|nd (< po|
|000019d0| 73 20 6c 65 6e 29 20 64 | 69 72 65 64 2d 75 73 65 |s len) d|ired-use|
|000019e0| 2d 66 69 6c 65 2d 74 72 | 61 6e 73 66 6f 72 6d 65 |-file-tr|ansforme|
|000019f0| 72 73 20 28 61 73 73 71 | 20 28 61 72 65 66 20 74 |rs (assq| (aref t|
|00001a00| 72 61 6e 73 66 6f 72 6d | 65 72 73 20 70 6f 73 29 |ransform|ers pos)|
|00001a10| 20 64 69 72 65 64 2d 74 | 72 61 6e 73 2d 6d 61 70 | dired-t|rans-map|
|00001a20| 29 29 20 74 72 61 6e 73 | 66 6f 72 6d 65 64 20 74 |)) trans|formed t|
|00001a30| 29 20 69 66 20 74 72 61 | 6e 73 20 28 73 65 74 71 |) if tra|ns (setq|
|00001a40| 20 72 65 73 75 6c 74 20 | 28 63 6f 6e 63 61 74 20 | result |(concat |
|00001a50| 72 65 73 75 6c 74 20 28 | 73 75 62 73 74 72 69 6e |result (|substrin|
|00001a60| 67 20 74 72 61 6e 73 66 | 6f 72 6d 65 72 73 20 6c |g transf|ormers l|
|00001a70| 61 73 74 20 28 31 2d 20 | 70 6f 73 29 29 20 28 66 |ast (1- |pos)) (f|
|00001a80| 75 6e 63 61 6c 6c 20 28 | 63 64 72 20 74 72 61 6e |uncall (|cdr tran|
|00001a90| 73 29 20 66 69 6c 65 6e | 61 6d 65 29 29 20 70 6f |s) filen|ame)) po|
|00001aa0| 73 20 28 31 2b 20 70 6f | 73 29 20 6c 61 73 74 20 |s (1+ po|s) last |
|00001ab0| 70 6f 73 29 20 73 65 74 | 71 20 72 65 73 75 6c 74 |pos) set|q result|
|00001ac0| 20 63 6f 6e 63 61 74 20 | 28 73 75 62 73 74 72 69 | concat |(substri|
|00001ad0| 6e 67 20 74 72 61 6e 73 | 66 6f 72 6d 65 72 73 20 |ng trans|formers |
|00001ae0| 6c 61 73 74 20 28 31 2d | 20 70 6f 73 29 29 20 64 |last (1-| pos)) d|
|00001af0| 69 72 65 64 2d 6d 61 6b | 65 2d 72 65 6c 61 74 69 |ired-mak|e-relati|
|00001b00| 76 65 20 64 69 72 20 28 | 74 29 20 28 6c 61 73 74 |ve dir (|t) (last|
|00001b10| 20 70 6f 73 29 20 28 28 | 28 73 65 74 71 20 70 6f | pos) ((|(setq po|
|00001b20| 73 20 28 31 2b 20 70 6f | 73 29 29 29 29 20 28 28 |s (1+ po|s)))) ((|
|00001b30| 69 66 20 72 65 73 75 6c | 74 20 28 70 72 6f 67 6e |if resul|t (progn|
|00001b40| 20 28 73 65 74 71 20 72 | 65 73 75 6c 74 20 28 64 | (setq r|esult (d|
|00001b50| 69 72 65 64 2d 73 68 65 | 6c 6c 2d 71 75 6f 74 65 |ired-she|ll-quote|
|00001b60| 20 28 63 6f 6e 63 61 74 | 20 72 65 73 75 6c 74 20 | (concat| result |
|00001b70| 28 73 75 62 73 74 72 69 | 6e 67 20 74 72 61 6e 73 |(substri|ng trans|
|00001b80| 66 6f 72 6d 65 72 73 20 | 6c 61 73 74 29 29 29 29 |formers |last))))|
|00001b90| 20 28 69 66 20 74 72 61 | 6e 73 66 6f 72 6d 65 64 | (if tra|nsformed|
|00001ba0| 20 28 6c 69 73 74 20 72 | 65 73 75 6c 74 29 20 72 | (list r|esult) r|
|00001bb0| 65 73 75 6c 74 29 29 20 | 74 72 61 6e 73 66 6f 72 |esult)) |transfor|
|00001bc0| 6d 65 72 73 29 29 5d 20 | 32 32 5d 29 29 0a 28 64 |mers))] |22])).(d|
|00001bd0| 65 66 61 6c 69 61 73 20 | 27 64 69 72 65 64 2d 74 |efalias |'dired-t|
|00001be0| 72 61 6e 73 2d 66 69 6c | 65 6e 61 6d 65 73 20 23 |rans-fil|enames #|
|00001bf0| 5b 28 74 72 61 6e 73 66 | 6f 72 6d 65 72 73 20 66 |[(transf|ormers f|
|00001c00| 69 6c 65 73 20 64 69 72 | 29 20 22 08 c1 89 1a 1b |iles dir|) ".....|
|00001c10| 89 1c 83 00 01 0d 1d 0c | 40 1e 06 0d 47 1e 07 c8 |........|@...G...|
|00001c20| 1e 09 c8 1e 5c 6e c1 1e | 0b c1 1e 0c c1 1e 0d c1 |....\n..|........|
|00001c30| 1e 0e c1 1a 0e 09 0e 07 | 57 83 c8 00 0d 0e 09 48 |........|W......H|
|00001c40| 16 0d 0e 0c ab 8a 0e 09 | 54 16 09 c1 16 0c aa 64 |........|T......d|
|00001c50| 0e 0d cf 55 ab 98 d0 16 | 0c 0e 0e 0d 0e 5c 6e 0e |...U....|.....\n.|
|00001c60| 09 4f 50 16 0e 0e 09 54 | 89 16 09 16 5c 6e aa 46 |.OP....T|....\n.F|
|00001c70| 0e 0c ac d9 0e 0d 0e 11 | 55 ab d2 0e 09 54 89 16 |........|U....T..|
|00001c80| 09 0e 07 57 ad 8b 0e 12 | ad 87 0d 0e 09 48 0e 13 |...W....|.....H..|
|00001c90| b7 12 d0 16 0b 5c 6e ab | 9b 0e 0e 0d 0e 5c 6e 0e |.....\n.|.....\n.|
|00001ca0| 09 53 4f 5c 6e 41 0e 06 | 21 51 16 0e 0e 09 54 89 |.SO\nA..|!Q....T.|
|00001cb0| 16 09 16 5c 6e aa 03 0e | 0e 0d 0e 5c 6e 0e 09 53 |...\n...|...\n..S|
|00001cc0| 4f d4 0e 06 0e 15 d0 23 | 51 16 0e 0e 09 16 5c 6e |O......#|Q.....\n|
|00001cd0| 82 28 00 0e 09 54 89 16 | 09 82 2a 00 0e 0e ab 99 |.(...T..|..*.....|
|00001ce0| d6 0e 0e 0d 0e 5c 6e c1 | 4f 50 21 16 0e 0e 0b ab |.....\n.|OP!.....|
|00001cf0| 85 0e 0e 43 aa 85 0e 0e | aa 81 0d 2e 5c 6e 89 12 |...C....|....\n..|
|00001d00| 3c ab 8b 0b 5c 6e a4 13 | 0c 41 89 14 82 07 00 5c |<...\n..|.A.....\|
|00001d10| 6e 13 c1 89 14 84 5c 6e | 00 0b 3c ab 98 08 47 d7 |n.....\n|..<...G.|
|00001d20| 56 ab 8d 0e 18 d9 da 0b | 0e 1b 23 0e 1c 51 aa 82 |V.......|..#..Q..|
|00001d30| 0b 40 43 aa 81 0b 2b 87 | 22 20 5b 66 69 6c 65 73 |.@C...+.|" [files|
|00001d40| 20 6e 69 6c 20 74 72 61 | 6e 73 20 72 65 73 20 6c | nil tra|ns res l|
|00001d50| 69 73 74 20 74 72 61 6e | 73 66 6f 72 6d 65 72 73 |ist tran|sformers|
|00001d60| 20 66 69 6c 65 6e 61 6d | 65 20 6c 65 6e 20 30 20 | filenam|e len 0 |
|00001d70| 70 6f 73 20 6c 61 73 74 | 20 74 72 61 6e 73 66 6f |pos last| transfo|
|00001d80| 72 6d 65 64 20 71 75 6f | 74 65 64 20 63 68 61 72 |rmed quo|ted char|
|00001d90| 20 72 65 73 75 6c 74 20 | 3f 5c 5c 20 74 20 64 69 | result |?\\ t di|
|00001da0| 72 65 64 2d 66 69 6c 65 | 2d 77 69 6c 64 63 61 72 |red-file|-wildcar|
|00001db0| 64 20 64 69 72 65 64 2d | 75 73 65 2d 66 69 6c 65 |d dired-|use-file|
|00001dc0| 2d 74 72 61 6e 73 66 6f | 72 6d 65 72 73 20 64 69 |-transfo|rmers di|
|00001dd0| 72 65 64 2d 74 72 61 6e | 73 2d 6d 61 70 20 64 69 |red-tran|s-map di|
|00001de0| 72 65 64 2d 6d 61 6b 65 | 2d 72 65 6c 61 74 69 76 |red-make|-relativ|
|00001df0| 65 20 64 69 72 20 64 69 | 72 65 64 2d 73 68 65 6c |e dir di|red-shel|
|00001e00| 6c 2d 71 75 6f 74 65 20 | 31 20 64 69 72 65 64 2d |l-quote |1 dired-|
|00001e10| 73 68 65 6c 6c 2d 70 72 | 65 66 69 78 20 6d 61 70 |shell-pr|efix map|
|00001e20| 63 6f 6e 63 61 74 20 69 | 64 65 6e 74 69 74 79 20 |concat i|dentity |
|00001e30| 64 69 72 65 64 2d 73 68 | 65 6c 6c 2d 73 65 70 61 |dired-sh|ell-sepa|
|00001e40| 72 61 74 6f 72 20 64 69 | 72 65 64 2d 73 68 65 6c |rator di|red-shel|
|00001e50| 6c 2d 70 6f 73 74 66 69 | 78 5d 20 37 5d 29 0a 28 |l-postfi|x] 7]).(|
|00001e60| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|00001e70| 74 72 61 6e 73 2d 63 6f | 6d 6d 61 6e 64 20 23 5b |trans-co|mmand #[|
|00001e80| 28 63 6f 6d 6d 61 6e 64 | 20 66 69 6c 65 73 20 64 |(command| files d|
|00001e90| 69 72 29 20 22 08 47 c1 | 89 89 c2 89 89 89 1b 1c |ir) ".G.|........|
|00001ea0| 1d 1e 06 1e 07 1e 08 1e | 09 1e 5c 6e 0e 08 0e 5c |........|..\n...\|
|00001eb0| 6e 57 83 ad 00 0e 08 0e | 5c 6e 57 ab 91 08 0e 08 |nW......|\nW.....|
|00001ec0| 48 0e 0b 73 ab 88 0e 08 | 54 89 16 08 aa 6a 0e 08 |H..s....|T....j..|
|00001ed0| 16 09 0e 08 0e 5c 6e 57 | ab b4 08 0e 08 48 89 15 |.....\nW|.....H..|
|00001ee0| 0e 0b 73 ac a9 0e 08 54 | 16 08 0d cc 55 ab 64 0e |..s....T|....U.d.|
|00001ef0| 08 0e 5c 6e 57 ab 5d 08 | 0e 08 48 89 15 0e 0b 73 |..\nW.].|..H....s|
|00001f00| ac 85 0d cc 55 ab 4d 0e | 08 54 89 16 08 aa 47 0e |....U.M.|.T....G.|
|00001f10| 09 0e 08 55 ab 83 cd aa | 8c ce 08 0e 09 0e 08 4f |...U....|.......O|
|00001f20| 0e 0f 0e 10 23 13 0c ae | 82 0b 3c 14 0e 06 08 0e |....#...|..<.....|
|00001f30| 07 0e 09 4f 0b 3c ab 84 | 0b 40 aa 81 0b 51 16 06 |...O.<..|.@...Q..|
|00001f40| 0e 08 16 07 82 16 00 0c | ab 84 0e 06 aa a8 0e 0f |........|........|
|00001f50| 47 d1 56 ab 8e 0e 12 d3 | d4 0e 0f 0e 15 23 0e 16 |G.V.....|.....#..|
|00001f60| 51 aa 8a d7 d8 0e 0f 40 | 0e 10 d9 23 21 1e 1a 0e |Q......@|...#!...|
|00001f70| 06 db 0e 1a 51 29 2e 08 | 87 22 20 5b 63 6f 6d 6d |....Q)..|." [comm|
|00001f80| 61 6e 64 20 30 20 6e 69 | 6c 20 74 72 61 6e 73 66 |and 0 ni|l transf|
|00001f90| 6f 72 6d 20 74 72 61 6e | 73 65 64 20 63 68 61 72 |orm tran|sed char|
|00001fa0| 20 72 65 73 75 6c 74 20 | 6c 61 73 74 20 70 6f 73 | result |last pos|
|00001fb0| 20 73 74 61 72 74 20 6c | 65 6e 20 64 69 72 65 64 | start l|en dired|
|00001fc0| 2d 73 68 65 6c 6c 2d 63 | 6f 6d 6d 61 6e 64 2d 73 |-shell-c|ommand-s|
|00001fd0| 65 70 61 72 61 74 6f 72 | 73 20 3f 5c 5c 20 22 22 |eparator|s ?\\ ""|
|00001fe0| 20 64 69 72 65 64 2d 74 | 72 61 6e 73 2d 66 69 6c | dired-t|rans-fil|
|00001ff0| 65 6e 61 6d 65 73 20 66 | 69 6c 65 73 20 64 69 72 |enames f|iles dir|
|00002000| 20 31 20 64 69 72 65 64 | 2d 73 68 65 6c 6c 2d 70 | 1 dired|-shell-p|
|00002010| 72 65 66 69 78 20 6d 61 | 70 63 6f 6e 63 61 74 20 |refix ma|pconcat |
|00002020| 23 5b 28 66 6e 29 20 22 | c0 c1 5c 6e 0b c4 23 21 |#[(fn) "|..\n..#!|
|00002030| 87 22 20 5b 64 69 72 65 | 64 2d 73 68 65 6c 6c 2d |." [dire|d-shell-|
|00002040| 71 75 6f 74 65 20 64 69 | 72 65 64 2d 6d 61 6b 65 |quote di|red-make|
|00002050| 2d 72 65 6c 61 74 69 76 | 65 20 66 6e 20 64 69 72 |-relativ|e fn dir|
|00002060| 20 74 5d 20 35 5d 20 64 | 69 72 65 64 2d 73 68 65 | t] 5] d|ired-she|
|00002070| 6c 6c 2d 73 65 70 61 72 | 61 74 6f 72 20 64 69 72 |ll-separ|ator dir|
|00002080| 65 64 2d 73 68 65 6c 6c | 2d 70 6f 73 74 66 69 78 |ed-shell|-postfix|
|00002090| 20 64 69 72 65 64 2d 73 | 68 65 6c 6c 2d 71 75 6f | dired-s|hell-quo|
|000020a0| 74 65 20 64 69 72 65 64 | 2d 6d 61 6b 65 2d 72 65 |te dired|-make-re|
|000020b0| 6c 61 74 69 76 65 20 74 | 20 66 6e 73 20 22 20 22 |lative t| fns " "|
|000020c0| 5d 20 39 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 9]).(d|efalias |
|000020d0| 27 64 69 72 65 64 2d 73 | 68 65 6c 6c 2d 73 74 75 |'dired-s|hell-stu|
|000020e0| 66 66 2d 69 74 20 23 5b | 28 63 6f 6d 6d 61 6e 64 |ff-it #[|(command|
|000020f0| 20 66 69 6c 65 2d 6c 69 | 73 74 20 64 69 72 20 6f | file-li|st dir o|
|00002100| 6e 2d 65 61 63 68 29 20 | 22 08 c1 61 ab fe c2 0b |n-each) |"..a....|
|00002110| c2 1c 1d 1e 06 0d ab eb | c7 0e 08 0d 40 43 c9 0d |........|....@C..|
|00002120| 40 21 23 ca c9 0d 40 21 | 21 1e 0b 1e 0c cd ce 0c |@!#...@!|!.......|
|00002130| 0e 06 ab a8 09 0e 06 98 | ab 86 cf 0e 0c 44 aa bb |........|.....D..|
|00002140| 09 0e 0b 98 ab 89 c2 16 | 06 d0 0e 0c 44 aa ac 0e |........|....D...|
|00002150| 0b 16 06 d1 0e 0b cf 0e | 0c 46 aa 9f 0e 0b 09 98 |........|.F......|
|00002160| ab 89 0c ad 81 cf 0e 0c | 44 aa 90 0e 0b 16 06 0c |........|D.......|
|00002170| ad 81 cf d2 0e 0b cf 0e | 0c af 05 23 14 0d 41 15 |........|...#..A.|
|00002180| 2a aa 12 0c 0e 06 ad 81 | d3 50 2b 87 08 ab 86 d4 |*.......|.P+.....|
|00002190| d5 0b cf 23 87 c7 0e 08 | 0b 09 23 87 22 20 5b 6f |...#....|..#." [o|
|000021a0| 6e 2d 65 61 63 68 20 64 | 69 72 20 6e 69 6c 20 66 |n-each d|ir nil f|
|000021b0| 69 6c 65 2d 6c 69 73 74 | 20 72 65 73 75 6c 74 20 |ile-list| result |
|000021c0| 6c 69 73 74 20 73 75 62 | 73 68 65 6c 6c 2d 64 69 |list sub|shell-di|
|000021d0| 72 20 64 69 72 65 64 2d | 74 72 61 6e 73 2d 63 6f |r dired-|trans-co|
|000021e0| 6d 6d 61 6e 64 20 63 6f | 6d 6d 61 6e 64 20 66 69 |mmand co|mmand fi|
|000021f0| 6c 65 2d 6e 61 6d 65 2d | 64 69 72 65 63 74 6f 72 |le-name-|director|
|00002200| 79 20 64 69 72 65 64 2d | 73 68 65 6c 6c 2d 71 75 |y dired-|shell-qu|
|00002210| 6f 74 65 20 66 64 69 72 | 20 63 6d 64 20 61 70 70 |ote fdir| cmd app|
|00002220| 6c 79 20 63 6f 6e 63 61 | 74 20 22 3b 20 22 20 22 |ly conca|t "; " "|
|00002230| 29 3b 20 22 20 22 29 3b | 20 28 63 64 20 22 20 22 |); " ");| (cd " "|
|00002240| 28 63 64 20 22 20 22 29 | 22 20 6d 61 70 63 6f 6e |(cd " ")|" mapcon|
|00002250| 63 61 74 20 23 5b 28 66 | 6e 29 20 22 c0 09 5c 6e |cat #[(f|n) "..\n|
|00002260| 43 0b 23 87 22 20 5b 64 | 69 72 65 64 2d 74 72 61 |C.#." [d|ired-tra|
|00002270| 6e 73 2d 63 6f 6d 6d 61 | 6e 64 20 63 6f 6d 6d 61 |ns-comma|nd comma|
|00002280| 6e 64 20 66 6e 20 64 69 | 72 5d 20 34 5d 5d 20 38 |nd fn di|r] 4]] 8|
|00002290| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |]).(defa|lias 'di|
|000022a0| 72 65 64 2d 67 75 65 73 | 73 2d 64 65 66 61 75 6c |red-gues|s-defaul|
|000022b0| 74 20 23 5b 28 66 69 6c | 65 73 29 20 22 08 ad aa |t #[(fil|es) "...|
|000022c0| 09 ad a7 c2 0b 08 5c 22 | c4 1d 89 1e 06 ab 98 0e |......\"|........|
|000022d0| 06 40 89 1e 07 40 1e 08 | 0d c9 ca 8d a4 15 2a 0e |.@...@..|......*.|
|000022e0| 06 41 89 16 06 ac 68 cb | 0d 21 2a 87 22 20 5b 64 |.A....h.|.!*." [d|
|000022f0| 69 72 65 64 2d 64 65 66 | 61 75 6c 74 2d 61 75 74 |ired-def|ault-aut|
|00002300| 6f 2d 73 68 65 6c 6c 2d | 63 6f 6d 6d 61 6e 64 2d |o-shell-|command-|
|00002310| 61 6c 69 73 74 20 66 69 | 6c 65 73 20 61 70 70 65 |alist fi|les appe|
|00002320| 6e 64 20 64 69 72 65 64 | 2d 61 75 74 6f 2d 73 68 |nd dired|-auto-sh|
|00002330| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 2d 61 6c 69 73 |ell-comm|and-alis|
|00002340| 74 20 6e 69 6c 20 67 75 | 65 73 73 65 73 20 61 6c |t nil gu|esses al|
|00002350| 69 73 74 20 65 6c 74 20 | 72 65 67 65 78 70 20 6d |ist elt |regexp m|
|00002360| 69 73 73 65 64 20 28 62 | 79 74 65 2d 63 6f 64 65 |issed (b|yte-code|
|00002370| 20 22 c0 c1 5c 6e 5c 22 | 88 c3 c4 c0 c5 0e 06 41 | "..\n\"|.......A|
|00002380| 5c 22 5c 22 87 22 20 5b | 6d 61 70 63 61 72 20 23 |\"\"." [|mapcar #|
|00002390| 5b 28 66 69 6c 65 29 20 | 22 c0 09 5c 6e 5c 22 ae |[(file) |"..\n\".|
|000023a0| 84 c3 c4 c5 5c 22 87 22 | 20 5b 73 74 72 69 6e 67 |....\"."| [string|
|000023b0| 2d 6d 61 74 63 68 20 72 | 65 67 65 78 70 20 66 69 |-match r|egexp fi|
|000023c0| 6c 65 20 74 68 72 6f 77 | 20 6d 69 73 73 65 64 20 |le throw| missed |
|000023d0| 6e 69 6c 5d 20 33 5d 20 | 66 69 6c 65 73 20 64 65 |nil] 3] |files de|
|000023e0| 6c 71 20 6e 69 6c 20 65 | 76 61 6c 20 65 6c 74 5d |lq nil e|val elt]|
|000023f0| 20 35 29 20 64 69 72 65 | 64 2d 75 6e 69 71 75 65 | 5) dire|d-unique|
|00002400| 66 79 2d 6c 69 73 74 5d | 20 34 5d 29 0a 23 40 31 |fy-list]| 4]).#@1|
|00002410| 34 34 20 54 75 72 6e 20 | 61 20 66 69 6c 65 20 6e |44 Turn |a file n|
|00002420| 61 6d 65 20 69 6e 74 6f | 20 61 20 66 6f 72 6d 20 |ame into| a form |
|00002430| 74 68 61 74 20 63 61 6e | 20 62 65 20 73 65 6e 74 |that can| be sent|
|00002440| 20 74 6f 20 61 20 73 68 | 65 6c 6c 20 70 72 6f 63 | to a sh|ell proc|
|00002450| 65 73 73 2e 0a 54 68 69 | 73 20 69 73 20 70 61 72 |ess..Thi|s is par|
|00002460| 74 69 63 75 6c 61 72 6c | 79 20 75 73 65 66 75 6c |ticularl|y useful|
|00002470| 6c 20 69 66 20 77 65 20 | 61 72 65 20 73 65 6e 64 |l if we |are send|
|00002480| 69 6e 67 20 66 69 6c 65 | 20 6e 61 6d 65 73 20 74 |ing file| names t|
|00002490| 6f 20 61 20 72 65 6d 6f | 74 65 20 73 68 65 6c 6c |o a remo|te shell|
|000024a0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 69 |...(defa|lias 'di|
|000024b0| 72 65 64 2d 73 68 65 6c | 6c 2d 75 6e 68 61 6e 64 |red-shel|l-unhand|
|000024c0| 6c 65 2d 66 69 6c 65 2d | 6e 61 6d 65 20 23 5b 28 |le-file-|name #[(|
|000024d0| 66 69 6c 65 6e 61 6d 65 | 29 20 22 c0 09 c2 5c 22 |filename|) "...\"|
|000024e0| 89 1b ab 86 0b c2 09 5c | 22 aa 81 09 29 87 22 20 |.......\|"...)." |
|000024f0| 5b 66 69 6e 64 2d 66 69 | 6c 65 2d 6e 61 6d 65 2d |[find-fi|le-name-|
|00002500| 68 61 6e 64 6c 65 72 20 | 66 69 6c 65 6e 61 6d 65 |handler |filename|
|00002510| 20 64 69 72 65 64 2d 73 | 68 65 6c 6c 2d 75 6e 68 | dired-s|hell-unh|
|00002520| 61 6e 64 6c 65 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |andle-fi|le-name |
|00002530| 68 61 6e 64 6c 65 72 5d | 20 34 20 28 23 24 20 2e |handler]| 4 (#$ .|
|00002540| 20 39 32 33 35 29 5d 29 | 0a 28 64 65 66 61 6c 69 | 9235)])|.(defali|
|00002550| 61 73 20 27 64 69 72 65 | 64 2d 72 75 6e 2d 73 68 |as 'dire|d-run-sh|
|00002560| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 2d 63 6c 6f 73 |ell-comm|and-clos|
|00002570| 65 6f 75 74 20 23 5b 28 | 62 75 66 66 65 72 20 26 |eout #[(|buffer &|
|00002580| 6f 70 74 69 6f 6e 61 6c | 20 6d 65 73 73 61 67 65 |optional| message|
|00002590| 29 20 22 c0 09 21 ad b1 | 8a 09 71 88 c2 20 c3 55 |) "..!..|..q.. .U|
|000025a0| ab 93 0c ab 87 c4 c5 0c | 5c 22 88 aa 84 c4 c6 21 |........|\".....!|
|000025b0| 88 c7 09 21 aa 93 c8 c9 | 09 21 ca 5c 22 88 0c ab |...!....|.!.\"...|
|000025c0| 86 c4 cb 0c 5c 22 aa 83 | c4 cc 21 29 87 22 20 5b |....\"..|..!)." [|
|000025d0| 67 65 74 2d 62 75 66 66 | 65 72 20 62 75 66 66 65 |get-buff|er buffe|
|000025e0| 72 20 62 75 66 66 65 72 | 2d 73 69 7a 65 20 30 20 |r buffer|-size 0 |
|000025f0| 6d 65 73 73 61 67 65 20 | 22 53 68 65 6c 6c 20 63 |message |"Shell c|
|00002600| 6f 6d 6d 61 6e 64 20 63 | 6f 6d 70 6c 65 74 65 64 |ommand c|ompleted|
|00002610| 20 77 69 74 68 20 6e 6f | 20 6f 75 74 70 75 74 2e | with no| output.|
|00002620| 20 25 73 22 20 22 53 68 | 65 6c 6c 20 63 6f 6d 6d | %s" "Sh|ell comm|
|00002630| 61 6e 64 20 63 6f 6d 70 | 6c 65 74 65 64 20 77 69 |and comp|leted wi|
|00002640| 74 68 20 6e 6f 20 6f 75 | 74 70 75 74 2e 22 20 6b |th no ou|tput." k|
|00002650| 69 6c 6c 2d 62 75 66 66 | 65 72 20 73 65 74 2d 77 |ill-buff|er set-w|
|00002660| 69 6e 64 6f 77 2d 73 74 | 61 72 74 20 64 69 73 70 |indow-st|art disp|
|00002670| 6c 61 79 2d 62 75 66 66 | 65 72 20 31 20 22 53 68 |lay-buff|er 1 "Sh|
|00002680| 65 6c 6c 20 63 6f 6d 6d | 61 6e 64 20 63 6f 6d 70 |ell comm|and comp|
|00002690| 6c 65 74 65 64 2e 20 25 | 73 22 20 22 53 68 65 6c |leted. %|s" "Shel|
|000026a0| 6c 20 63 6f 6d 6d 61 6e | 64 20 63 6f 6d 70 6c 65 |l comman|d comple|
|000026b0| 74 65 64 2e 22 5d 20 33 | 5d 29 0a 28 64 65 66 61 |ted."] 3|]).(defa|
|000026c0| 6c 69 61 73 20 27 64 69 | 72 65 64 2d 72 73 63 2d |lias 'di|red-rsc-|
|000026d0| 66 69 6c 74 65 72 20 23 | 5b 28 70 72 6f 63 20 73 |filter #|[(proc s|
|000026e0| 74 72 69 6e 67 29 20 22 | 70 18 c1 5c 6e 21 1b c4 |tring) "|p..\n!..|
|000026f0| 1d c6 0b 21 1e 07 c8 0e | 07 21 1e 09 ca 8e 0b 71 |...!....|.!.....q|
|00002700| 88 60 15 64 62 88 cb 0e | 0c 21 2e 06 87 22 20 5b |.`.db...|.!..." [|
|00002710| 6f 62 75 66 20 70 72 6f | 63 65 73 73 2d 62 75 66 |obuf pro|cess-buf|
|00002720| 66 65 72 20 70 72 6f 63 | 20 62 75 66 66 65 72 20 |fer proc| buffer |
|00002730| 6e 69 6c 20 6f 70 6f 69 | 6e 74 20 67 65 74 2d 62 |nil opoi|nt get-b|
|00002740| 75 66 66 65 72 2d 77 69 | 6e 64 6f 77 20 77 69 6e |uffer-wi|ndow win|
|00002750| 64 6f 77 20 77 69 6e 64 | 6f 77 2d 73 74 61 72 74 |dow wind|ow-start|
|00002760| 20 70 6f 73 20 28 28 62 | 79 74 65 2d 63 6f 64 65 | pos ((b|yte-code|
|00002770| 20 22 c0 09 5c 6e 5c 22 | 88 0b 62 88 0c 71 87 22 | "..\n\"|..b..q."|
|00002780| 20 5b 73 65 74 2d 77 69 | 6e 64 6f 77 2d 73 74 61 | [set-wi|ndow-sta|
|00002790| 72 74 20 77 69 6e 64 6f | 77 20 70 6f 73 20 6f 70 |rt windo|w pos op|
|000027a0| 6f 69 6e 74 20 6f 62 75 | 66 5d 20 33 29 29 20 69 |oint obu|f] 3)) i|
|000027b0| 6e 73 65 72 74 2d 62 65 | 66 6f 72 65 2d 6d 61 72 |nsert-be|fore-mar|
|000027c0| 6b 65 72 73 20 73 74 72 | 69 6e 67 5d 20 32 5d 29 |kers str|ing] 2])|
|000027d0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|000027e0| 64 2d 72 73 63 2d 73 65 | 6e 74 69 6e 65 6c 20 23 |d-rsc-se|ntinel #|
|000027f0| 5b 28 70 72 6f 63 65 73 | 73 20 73 69 67 6e 61 6c |[(proces|s signal|
|00002800| 29 20 22 c0 09 21 c2 73 | ad b3 c3 c4 09 21 21 89 |) "..!.s|.....!!.|
|00002810| 1d ab a6 8a 0d 71 88 c6 | 20 c7 55 ab 86 c8 c9 21 |.....q..| .U....!|
|00002820| 88 aa 92 ca 0e 0b 64 5c | 22 1e 0c c8 cd 0e 0c ce |......d\|".......|
|00002830| 0e 0c 21 23 88 29 cf 16 | 10 29 d1 09 21 29 87 22 |..!#.)..|.)..!)."|
|00002840| 20 5b 70 72 6f 63 65 73 | 73 2d 73 74 61 74 75 73 | [proces|s-status|
|00002850| 20 70 72 6f 63 65 73 73 | 20 28 65 78 69 74 20 73 | process| (exit s|
|00002860| 69 67 6e 61 6c 29 20 67 | 65 74 2d 62 75 66 66 65 |ignal) g|et-buffe|
|00002870| 72 20 70 72 6f 63 65 73 | 73 2d 62 75 66 66 65 72 |r proces|s-buffer|
|00002880| 20 62 75 66 66 65 72 20 | 62 75 66 66 65 72 2d 73 | buffer |buffer-s|
|00002890| 69 7a 65 20 30 20 6d 65 | 73 73 61 67 65 20 22 44 |ize 0 me|ssage "D|
|000028a0| 69 72 65 64 20 26 20 73 | 68 65 6c 6c 20 63 6f 6d |ired & s|hell com|
|000028b0| 6d 61 6e 64 20 63 6f 6d | 70 6c 65 74 65 64 20 77 |mand com|pleted w|
|000028c0| 69 74 68 20 6e 6f 20 6f | 75 74 70 75 74 2e 22 20 |ith no o|utput." |
|000028d0| 63 6f 75 6e 74 2d 6c 69 | 6e 65 73 20 64 69 72 65 |count-li|nes dire|
|000028e0| 64 2d 73 68 65 6c 6c 2d | 69 6e 70 75 74 2d 73 74 |d-shell-|input-st|
|000028f0| 61 72 74 20 6c 69 6e 65 | 73 20 22 44 69 72 65 64 |art line|s "Dired|
|00002900| 20 26 20 73 68 65 6c 6c | 20 63 6f 6d 6d 61 6e 64 | & shell| command|
|00002910| 20 63 6f 6d 70 6c 65 74 | 65 64 20 77 69 74 68 20 | complet|ed with |
|00002920| 25 64 20 6c 69 6e 65 25 | 73 20 6f 66 20 6f 75 74 |%d line%|s of out|
|00002930| 70 75 74 2e 22 20 64 69 | 72 65 64 2d 70 6c 75 72 |put." di|red-plur|
|00002940| 61 6c 2d 73 20 6e 69 6c | 20 6d 6f 64 65 2d 6c 69 |al-s nil| mode-li|
|00002950| 6e 65 2d 70 72 6f 63 65 | 73 73 20 64 65 6c 65 74 |ne-proce|ss delet|
|00002960| 65 2d 70 72 6f 63 65 73 | 73 5d 20 36 5d 29 0a 28 |e-proces|s] 6]).(|
|00002970| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|00002980| 73 68 65 6c 6c 2d 63 61 | 6c 6c 2d 70 72 6f 63 65 |shell-ca|ll-proce|
|00002990| 73 73 20 23 5b 28 63 6f | 6d 6d 61 6e 64 20 64 69 |ss #[(co|mmand di|
|000029a0| 72 20 26 6f 70 74 69 6f | 6e 61 6c 20 69 6e 2d 62 |r &optio|nal in-b|
|000029b0| 61 63 6b 67 72 6f 75 6e | 64 29 20 22 c0 09 c2 5c |ackgroun|d) "...\|
|000029c0| 22 89 1b ab 88 0b c2 0c | 09 0d 24 aa a3 0d 3f 3f |".......|..$...??|
|000029d0| 1e 06 09 16 07 0d ab 8d | c8 16 09 ca cb 70 0e 0c |........|.....p..|
|000029e0| cd 0c 25 aa 8a ce 0e 0c | cf d0 cf cd 0c 26 06 29 |..%.....|.....&.)|
|000029f0| 29 87 22 20 5b 66 69 6e | 64 2d 66 69 6c 65 2d 6e |)." [fin|d-file-n|
|00002a00| 61 6d 65 2d 68 61 6e 64 | 6c 65 72 20 64 69 72 20 |ame-hand|ler dir |
|00002a10| 64 69 72 65 64 2d 73 68 | 65 6c 6c 2d 63 61 6c 6c |dired-sh|ell-call|
|00002a20| 2d 70 72 6f 63 65 73 73 | 20 68 61 6e 64 6c 65 72 |-process| handler|
|00002a30| 20 63 6f 6d 6d 61 6e 64 | 20 69 6e 2d 62 61 63 6b | command| in-back|
|00002a40| 67 72 6f 75 6e 64 20 70 | 72 6f 63 65 73 73 2d 63 |ground p|rocess-c|
|00002a50| 6f 6e 6e 65 63 74 69 6f | 6e 2d 74 79 70 65 20 64 |onnectio|n-type d|
|00002a60| 65 66 61 75 6c 74 2d 64 | 69 72 65 63 74 6f 72 79 |efault-d|irectory|
|00002a70| 20 28 22 3a 20 25 73 22 | 29 20 6d 6f 64 65 2d 6c | (": %s"|) mode-l|
|00002a80| 69 6e 65 2d 70 72 6f 63 | 65 73 73 20 73 74 61 72 |ine-proc|ess star|
|00002a90| 74 2d 70 72 6f 63 65 73 | 73 20 22 53 68 65 6c 6c |t-proces|s "Shell|
|00002aa0| 22 20 73 68 65 6c 6c 2d | 66 69 6c 65 2d 6e 61 6d |" shell-|file-nam|
|00002ab0| 65 20 22 2d 63 22 20 63 | 61 6c 6c 2d 70 72 6f 63 |e "-c" c|all-proc|
|00002ac0| 65 73 73 20 6e 69 6c 20 | 74 5d 20 38 5d 29 0a 28 |ess nil |t] 8]).(|
|00002ad0| 64 65 66 61 6c 69 61 73 | 20 27 64 69 72 65 64 2d |defalias| 'dired-|
|00002ae0| 72 75 6e 2d 73 68 65 6c | 6c 2d 63 6f 6d 6d 61 6e |run-shel|l-comman|
|00002af0| 64 20 23 5b 28 63 6f 6d | 6d 61 6e 64 20 64 69 72 |d #[(com|mand dir|
|00002b00| 20 69 6e 2d 62 61 63 6b | 67 72 6f 75 6e 64 20 26 | in-back|ground &|
|00002b10| 6f 70 74 69 6f 6e 61 6c | 20 61 70 70 65 6e 64 29 |optional| append)|
|00002b20| 20 22 8a 08 83 85 00 c1 | c2 21 1b c4 1d c6 1e 07 | "......|.!......|
|00002b30| c8 0b 21 ab 8e c1 c9 ca | 0d 21 cb 51 21 13 0d 54 |..!.....|.!.Q!..T|
|00002b40| 15 aa 6d 0b 71 88 0e 0c | cd 61 ac 89 cd 20 88 ce |..m.q...|.a... ..|
|00002b50| cf 21 d0 4c 88 d1 0b 21 | 88 d2 20 88 ce d3 21 65 |.!.L...!|.. ...!e|
|00002b60| 4c 88 0e 14 ab 90 64 62 | 88 68 d5 55 ac 98 6f ac |L.....db|.h.U..o.|
|00002b70| 95 d6 63 88 aa 90 d7 20 | 88 08 3b ab 89 08 63 88 |..c.... |..;...c.|
|00002b80| ce d3 21 60 4c 88 d8 0e | 19 0e 1a db 23 16 07 dc |..!`L...|....#...|
|00002b90| 0e 07 21 60 c6 93 88 dd | 0e 07 de 5c 22 88 df 0e |..!`....|...\"...|
|00002ba0| 07 e0 5c 22 88 2b c6 aa | ae c1 e1 21 89 1b 71 88 |..\".+..|...!..q.|
|00002bb0| d2 20 88 ce d3 21 65 4c | 88 0e 14 ab 90 64 62 88 |. ...!eL|.....db.|
|00002bc0| 68 d5 55 ac 8b 6f ac 88 | d6 63 88 aa 83 d7 20 88 |h.U..o..|.c.... .|
|00002bd0| d8 0e 19 0e 1a 5c 22 29 | 29 87 22 20 5b 69 6e 2d |.....\")|)." [in-|
|00002be0| 62 61 63 6b 67 72 6f 75 | 6e 64 20 67 65 74 2d 62 |backgrou|nd get-b|
|00002bf0| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 22 2a 42 |uffer-cr|eate "*B|
|00002c00| 61 63 6b 67 72 6f 75 6e | 64 20 53 68 65 6c 6c 20 |ackgroun|d Shell |
|00002c10| 43 6f 6d 6d 61 6e 64 20 | 4f 75 74 70 75 74 2a 22 |Command |Output*"|
|00002c20| 20 62 75 66 66 65 72 20 | 32 20 6e 20 6e 69 6c 20 | buffer |2 n nil |
|00002c30| 70 72 6f 63 20 67 65 74 | 2d 62 75 66 66 65 72 2d |proc get|-buffer-|
|00002c40| 70 72 6f 63 65 73 73 20 | 22 2a 42 61 63 6b 67 72 |process |"*Backgr|
|00002c50| 6f 75 6e 64 20 53 68 65 | 6c 6c 20 43 6f 6d 6d 61 |ound She|ll Comma|
|00002c60| 6e 64 20 4f 75 74 70 75 | 74 2a 3c 22 20 69 6e 74 |nd Outpu|t*<" int|
|00002c70| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 22 3e 22 20 6d |-to-stri|ng ">" m|
|00002c80| 61 6a 6f 72 2d 6d 6f 64 | 65 20 63 6f 6d 69 6e 74 |ajor-mod|e comint|
|00002c90| 2d 6d 6f 64 65 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |-mode ma|ke-local|
|00002ca0| 2d 76 61 72 69 61 62 6c | 65 20 63 6f 6d 69 6e 74 |-variabl|e comint|
|00002cb0| 2d 70 72 6f 6d 70 74 2d | 72 65 67 65 78 70 20 22 |-prompt-|regexp "|
|00002cc0| 5e 5b 5e 5c 6e 5d 2a 5c | 5c 3f 20 2a 22 20 64 69 |^[^\n]*\|\? *" di|
|00002cd0| 73 70 6c 61 79 2d 62 75 | 66 66 65 72 20 62 61 72 |splay-bu|ffer bar|
|00002ce0| 66 2d 69 66 2d 62 75 66 | 66 65 72 2d 72 65 61 64 |f-if-buf|fer-read|
|00002cf0| 2d 6f 6e 6c 79 20 64 69 | 72 65 64 2d 73 68 65 6c |-only di|red-shel|
|00002d00| 6c 2d 69 6e 70 75 74 2d | 73 74 61 72 74 20 61 70 |l-input-|start ap|
|00002d10| 70 65 6e 64 20 3f 5c 6e | 20 22 5c 6e 22 20 65 72 |pend ?\n| "\n" er|
|00002d20| 61 73 65 2d 62 75 66 66 | 65 72 20 64 69 72 65 64 |ase-buff|er dired|
|00002d30| 2d 73 68 65 6c 6c 2d 63 | 61 6c 6c 2d 70 72 6f 63 |-shell-c|all-proc|
|00002d40| 65 73 73 20 63 6f 6d 6d | 61 6e 64 20 64 69 72 20 |ess comm|and dir |
|00002d50| 74 20 70 72 6f 63 65 73 | 73 2d 6d 61 72 6b 20 73 |t proces|s-mark s|
|00002d60| 65 74 2d 70 72 6f 63 65 | 73 73 2d 73 65 6e 74 69 |et-proce|ss-senti|
|00002d70| 6e 65 6c 20 64 69 72 65 | 64 2d 72 73 63 2d 73 65 |nel dire|d-rsc-se|
|00002d80| 6e 74 69 6e 65 6c 20 73 | 65 74 2d 70 72 6f 63 65 |ntinel s|et-proce|
|00002d90| 73 73 2d 66 69 6c 74 65 | 72 20 64 69 72 65 64 2d |ss-filte|r dired-|
|00002da0| 72 73 63 2d 66 69 6c 74 | 65 72 20 22 2a 53 68 65 |rsc-filt|er "*She|
|00002db0| 6c 6c 20 43 6f 6d 6d 61 | 6e 64 20 4f 75 74 70 75 |ll Comma|nd Outpu|
|00002dc0| 74 2a 22 5d 20 35 5d 29 | 0a 23 40 33 34 39 38 20 |t*"] 5])|.#@3498 |
|00002dd0| 52 75 6e 20 61 20 73 68 | 65 6c 6c 20 63 6f 6d 6d |Run a sh|ell comm|
|00002de0| 61 6e 64 20 43 4f 4d 4d | 41 4e 44 20 6f 6e 20 74 |and COMM|AND on t|
|00002df0| 68 65 20 6d 61 72 6b 65 | 64 20 66 69 6c 65 73 2e |he marke|d files.|
|00002e00| 0a 49 66 20 6e 6f 20 66 | 69 6c 65 73 20 61 72 65 |.If no f|iles are|
|00002e10| 20 6d 61 72 6b 65 64 20 | 6f 72 20 61 20 6e 6f 6e | marked |or a non|
|00002e20| 2d 7a 65 72 6f 20 6e 75 | 6d 65 72 69 63 20 70 72 |-zero nu|meric pr|
|00002e30| 65 66 69 78 20 61 72 67 | 20 69 73 20 67 69 76 65 |efix arg| is give|
|00002e40| 6e 2c 0a 74 68 65 20 6e | 65 78 74 20 41 52 47 20 |n,.the n|ext ARG |
|00002e50| 66 69 6c 65 73 20 61 72 | 65 20 75 73 65 64 2e 20 |files ar|e used. |
|00002e60| 20 55 73 65 20 70 72 65 | 66 69 78 20 31 20 74 6f | Use pre|fix 1 to|
|00002e70| 20 69 6e 64 69 63 61 74 | 65 20 74 68 65 20 63 75 | indicat|e the cu|
|00002e80| 72 72 65 6e 74 20 66 69 | 6c 65 2e 0a 0a 4e 6f 72 |rrent fi|le...Nor|
|00002e90| 6d 61 6c 6c 79 20 74 68 | 65 20 73 68 65 6c 6c 20 |mally th|e shell |
|00002ea0| 63 6f 6d 6d 61 6e 64 20 | 69 73 20 65 78 65 63 75 |command |is execu|
|00002eb0| 74 65 64 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |ted in t|he curre|
|00002ec0| 6e 74 20 64 69 72 65 64 | 20 73 75 62 64 69 72 65 |nt dired| subdire|
|00002ed0| 63 74 6f 72 79 2e 0a 54 | 68 69 73 20 69 73 20 74 |ctory..T|his is t|
|00002ee0| 68 65 20 64 69 72 65 63 | 74 6f 72 79 20 69 6e 20 |he direc|tory in |
|00002ef0| 74 68 65 20 64 69 72 65 | 64 20 62 75 66 66 65 72 |the dire|d buffer|
|00002f00| 20 77 68 69 63 68 20 63 | 75 72 72 65 6e 74 6c 79 | which c|urrently|
|00002f10| 20 63 6f 6e 74 61 69 6e | 73 20 74 68 65 20 70 6f | contain|s the po|
|00002f20| 69 6e 74 2e 0a 4f 6e 65 | 20 73 68 65 6c 6c 20 63 |int..One| shell c|
|00002f30| 6f 6d 6d 61 6e 64 20 69 | 73 20 72 75 6e 20 66 6f |ommand i|s run fo|
|00002f40| 72 20 61 6c 6c 20 6f 66 | 20 74 68 65 20 66 69 6c |r all of| the fil|
|00002f50| 65 73 2e 0a 65 2e 67 2e | 20 63 6d 64 20 66 69 6c |es..e.g.| cmd fil|
|00002f60| 65 31 20 66 69 6c 65 32 | 20 66 69 6c 65 33 20 2e |e1 file2| file3 .|
|00002f70| 2e 2e 20 0a 49 66 20 74 | 68 65 20 74 6f 74 61 6c |.. .If t|he total|
|00002f80| 20 6c 65 6e 67 74 68 20 | 6f 66 20 6f 66 20 74 68 | length |of of th|
|00002f90| 65 20 63 6f 6d 6d 61 6e | 64 20 65 78 63 65 65 64 |e comman|d exceed|
|00002fa0| 73 20 31 30 30 30 30 20 | 63 68 61 72 61 63 74 65 |s 10000 |characte|
|00002fb0| 72 73 2c 20 74 68 65 20 | 66 69 6c 65 73 20 77 69 |rs, the |files wi|
|00002fc0| 6c 6c 0a 62 65 20 62 75 | 6e 63 68 65 64 20 74 6f |ll.be bu|nched to|
|00002fd0| 20 66 6f 72 6d 73 20 63 | 6f 6d 6d 61 6e 64 73 20 | forms c|ommands |
|00002fe0| 73 68 6f 72 74 65 72 20 | 74 68 61 6e 20 74 68 69 |shorter |than thi|
|00002ff0| 73 20 6c 65 6e 67 74 68 | 2c 20 61 6e 64 20 73 75 |s length|, and su|
|00003000| 63 63 65 73 73 69 76 65 | 20 63 6f 6d 6d 61 6e 64 |ccessive| command|
|00003010| 73 0a 77 69 6c 6c 20 62 | 65 20 73 65 6e 74 2e 0a |s.will b|e sent..|
|00003020| 0a 57 69 74 68 20 61 20 | 70 72 65 66 69 78 20 6f |.With a |prefix o|
|00003030| 66 20 5c 5b 75 6e 69 76 | 65 72 73 61 6c 2d 61 72 |f \[univ|ersal-ar|
|00003040| 67 75 6d 65 6e 74 5d 2c | 20 61 20 73 65 70 61 72 |gument],| a separ|
|00003050| 61 74 65 20 63 6f 6d 6d | 61 6e 64 20 66 6f 72 20 |ate comm|and for |
|00003060| 65 61 63 68 20 66 69 6c | 65 20 77 69 6c 6c 0a 62 |each fil|e will.b|
|00003070| 65 20 65 78 65 63 75 74 | 65 64 2e 0a 0a 57 69 74 |e execut|ed...Wit|
|00003080| 68 20 61 20 70 72 65 66 | 69 78 20 6f 66 20 5c 5b |h a pref|ix of \[|
|00003090| 75 6e 69 76 65 72 73 61 | 6c 2d 61 72 67 75 6d 65 |universa|l-argume|
|000030a0| 6e 74 5d 20 5c 5b 75 6e | 69 76 65 72 73 61 6c 2d |nt] \[un|iversal-|
|000030b0| 61 72 67 75 6d 65 6e 74 | 5d 2c 20 61 20 73 65 70 |argument|], a sep|
|000030c0| 61 72 61 74 65 20 63 6f | 6d 6d 61 6e 64 20 77 69 |arate co|mmand wi|
|000030d0| 6c 6c 20 62 65 20 73 65 | 6e 74 20 66 6f 72 20 65 |ll be se|nt for e|
|000030e0| 61 63 68 20 66 69 6c 65 | 2c 0a 61 6e 64 20 74 68 |ach file|,.and th|
|000030f0| 65 20 63 6f 6d 6d 61 6e | 64 20 77 69 6c 6c 20 62 |e comman|d will b|
|00003100| 65 20 65 78 65 63 75 74 | 65 64 20 69 6e 20 74 68 |e execut|ed in th|
|00003110| 65 20 64 69 72 65 63 74 | 6f 72 79 20 6f 66 20 74 |e direct|ory of t|
|00003120| 68 61 74 20 66 69 6c 65 | 2e 20 20 54 68 65 20 65 |hat file|. The e|
|00003130| 78 70 6c 69 63 69 74 0a | 63 6f 6d 6d 61 6e 64 20 |xplicit.|command |
|00003140| 77 69 6c 6c 20 62 65 20 | 6f 66 20 74 68 65 20 66 |will be |of the f|
|00003150| 6f 72 6d 20 0a 0a 20 20 | 20 20 20 20 20 20 20 20 |orm .. | |
|00003160| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 64 20 64 | | cd d|
|00003170| 69 72 3b 20 63 6d 64 20 | 66 69 6c 65 0a 0a 57 68 |ir; cmd |file..Wh|
|00003180| 65 6e 20 70 72 6f 6d 70 | 74 69 6e 67 20 66 6f 72 |en promp|ting for|
|00003190| 20 74 68 65 20 73 68 65 | 6c 6c 20 63 6f 6d 6d 61 | the she|ll comma|
|000031a0| 6e 64 2c 20 64 69 72 65 | 64 20 77 69 6c 6c 20 61 |nd, dire|d will a|
|000031b0| 6c 77 61 79 73 20 69 6e | 64 69 63 61 74 65 20 74 |lways in|dicate t|
|000031c0| 68 65 20 64 69 72 65 63 | 74 6f 72 79 0a 69 6e 20 |he direc|tory.in |
|000031d0| 77 68 69 63 68 20 74 68 | 65 20 63 6f 6d 6d 61 6e |which th|e comman|
|000031e0| 64 20 77 69 6c 6c 20 62 | 65 20 65 78 65 63 75 74 |d will b|e execut|
|000031f0| 65 64 2e 0a 0a 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |ed...The| followi|
|00003200| 6e 67 20 64 6f 63 75 6d | 65 6e 74 61 74 69 6f 6e |ng docum|entation|
|00003210| 20 64 65 70 65 6e 64 73 | 20 6f 6e 20 74 68 65 20 | depends| on the |
|00003220| 73 65 74 74 69 6e 67 73 | 20 6f 66 20 60 64 69 72 |settings| of `dir|
|00003230| 65 64 2d 66 69 6c 65 2d | 77 69 6c 64 63 61 72 64 |ed-file-|wildcard|
|00003240| 27 2c 0a 60 64 69 72 65 | 64 2d 73 68 65 6c 6c 2d |',.`dire|d-shell-|
|00003250| 63 6f 6d 6d 61 6e 64 2d | 73 65 70 61 72 61 74 6f |command-|separato|
|00003260| 72 73 27 2c 20 60 64 69 | 72 65 64 2d 74 72 61 6e |rs', `di|red-tran|
|00003270| 73 2d 6d 61 70 27 2c 20 | 60 64 69 72 65 64 2d 73 |s-map', |`dired-s|
|00003280| 68 65 6c 6c 2d 70 72 65 | 66 69 78 27 2c 0a 60 64 |hell-pre|fix',.`d|
|00003290| 69 72 65 64 2d 73 68 65 | 6c 6c 2d 73 65 70 61 72 |ired-she|ll-separ|
|000032a0| 61 74 6f 72 27 2c 20 61 | 6e 64 20 60 64 69 72 65 |ator', a|nd `dire|
|000032b0| 64 2d 73 68 65 6c 6c 2d | 70 6f 73 74 66 69 78 27 |d-shell-|postfix'|
|000032c0| 2e 20 53 65 65 20 74 68 | 65 20 64 6f 63 75 6d 65 |. See th|e docume|
|000032d0| 6e 74 61 74 69 6f 6e 20 | 66 6f 72 0a 74 68 65 73 |ntation |for.thes|
|000032e0| 65 20 76 61 72 69 61 62 | 6c 65 73 2e 20 42 65 6c |e variab|les. Bel|
|000032f0| 6f 77 2c 20 49 20 77 69 | 6c 6c 20 61 73 73 75 6d |ow, I wi|ll assum|
|00003300| 65 20 64 65 66 61 75 6c | 74 20 73 65 74 74 69 6e |e defaul|t settin|
|00003310| 67 73 20 66 6f 72 20 74 | 68 65 73 65 20 76 61 72 |gs for t|hese var|
|00003320| 69 61 62 6c 65 73 2e 0a | 0a 49 66 20 74 68 65 20 |iables..|.If the |
|00003330| 73 68 65 6c 6c 20 63 6f | 6d 6d 61 6e 64 20 63 6f |shell co|mmand co|
|00003340| 6e 74 61 69 6e 73 20 61 | 20 2a 2c 20 74 68 65 6e |ntains a| *, then|
|00003350| 20 74 68 65 20 6c 69 73 | 74 20 6f 66 20 66 69 6c | the lis|t of fil|
|00003360| 65 73 20 69 73 20 73 75 | 62 73 74 69 74 75 74 65 |es is su|bstitute|
|00003370| 64 20 66 6f 72 20 2a 2e | 0a 54 68 65 20 66 69 6c |d for *.|.The fil|
|00003380| 65 6e 61 6d 65 73 20 77 | 69 6c 6c 20 62 65 20 77 |enames w|ill be w|
|00003390| 72 69 74 74 65 6e 20 61 | 73 20 72 65 6c 61 74 69 |ritten a|s relati|
|000033a0| 76 65 20 74 6f 20 74 68 | 65 20 64 69 72 65 63 74 |ve to th|e direct|
|000033b0| 6f 72 79 20 69 6e 20 77 | 68 69 63 68 20 74 68 65 |ory in w|hich the|
|000033c0| 20 73 68 65 6c 6c 0a 63 | 6f 6d 6d 61 6e 64 20 69 | shell.c|ommand i|
|000033d0| 73 20 65 78 65 63 75 74 | 69 6e 67 2e 20 49 66 20 |s execut|ing. If |
|000033e0| 74 68 65 72 65 20 69 73 | 20 6e 6f 20 2a 2c 20 61 |there is| no *, a|
|000033f0| 6e 64 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 20 64 |nd the c|ommand d|
|00003400| 6f 65 73 20 6e 6f 74 20 | 65 6e 64 20 69 6e 20 26 |oes not |end in &|
|00003410| 2c 20 0a 74 68 65 6e 20 | 74 68 65 20 66 69 6c 65 |, .then |the file|
|00003420| 73 20 61 72 65 20 61 70 | 70 65 6e 64 65 64 20 74 |s are ap|pended t|
|00003430| 6f 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |o the en|d of the|
|00003440| 20 63 6f 6d 6d 61 6e 64 | 2e 20 49 66 20 74 68 65 | command|. If the|
|00003450| 20 63 6f 6d 6d 61 6e 64 | 20 65 6e 64 73 20 69 6e | command| ends in|
|00003460| 0a 61 20 26 2c 20 74 68 | 65 6e 20 74 68 65 20 66 |.a &, th|en the f|
|00003470| 69 6c 65 73 20 61 72 65 | 20 69 6e 73 65 72 74 65 |iles are| inserte|
|00003480| 64 20 62 65 66 6f 72 65 | 20 74 68 65 20 26 2e 0a |d before| the &..|
|00003490| 0a 49 66 20 60 64 69 72 | 65 64 2d 75 73 65 2d 66 |.If `dir|ed-use-f|
|000034a0| 69 6c 65 2d 74 72 61 6e | 73 66 6f 72 6d 65 72 73 |ile-tran|sformers|
|000034b0| 27 20 69 73 20 6e 6f 6e | 2d 6e 69 6c 2c 20 74 68 |' is non|-nil, th|
|000034c0| 65 6e 20 63 65 72 74 61 | 69 6e 20 32 2d 63 68 61 |en certa|in 2-cha|
|000034d0| 72 61 63 74 65 72 0a 73 | 65 71 75 65 6e 63 65 73 |racter.s|equences|
|000034e0| 20 72 65 70 72 65 73 65 | 6e 74 20 70 61 72 74 73 | represe|nt parts|
|000034f0| 20 6f 66 20 74 68 65 20 | 66 69 6c 65 20 6e 61 6d | of the |file nam|
|00003500| 65 2e 0a 54 68 65 20 64 | 65 66 61 75 6c 74 20 74 |e..The d|efault t|
|00003510| 72 61 6e 73 66 6f 72 6d | 65 72 73 20 61 72 65 3a |ransform|ers are:|
|00003520| 0a 2a 66 20 3d 20 66 75 | 6c 6c 20 66 69 6c 65 20 |.*f = fu|ll file |
|00003530| 6e 61 6d 65 0a 2a 6e 20 | 3d 20 66 69 6c 65 20 6e |name.*n |= file n|
|00003540| 61 6d 65 20 77 69 74 68 | 6f 75 74 20 64 69 72 65 |ame with|out dire|
|00003550| 63 74 6f 72 79 0a 2a 64 | 20 3d 20 66 69 6c 65 20 |ctory.*d| = file |
|00003560| 6e 61 6d 65 27 73 20 64 | 69 72 65 63 74 6f 72 79 |name's d|irectory|
|00003570| 20 0a 20 20 20 20 20 54 | 68 69 73 20 77 69 6c 6c | . T|his will|
|00003580| 20 65 6e 64 20 69 6e 20 | 61 20 22 2f 22 20 69 6e | end in |a "/" in|
|00003590| 20 75 6e 69 78 2e 0a 2a | 65 20 3d 20 66 69 6c 65 | unix..*|e = file|
|000035a0| 20 6e 61 6d 65 73 20 65 | 78 74 65 6e 73 69 6f 6e | names e|xtension|
|000035b0| 0a 20 20 20 20 20 42 79 | 20 64 65 66 61 75 6c 74 |. By| default|
|000035c0| 20 74 68 69 73 20 74 68 | 65 20 70 61 72 74 20 6f | this th|e part o|
|000035d0| 66 20 74 68 65 20 66 69 | 6c 65 20 6e 61 6d 65 20 |f the fi|le name |
|000035e0| 77 69 74 68 6f 75 74 20 | 64 69 72 65 63 74 6f 72 |without |director|
|000035f0| 79 2c 20 77 68 69 63 68 | 0a 20 20 20 20 20 70 72 |y, which|. pr|
|00003600| 6f 63 65 65 64 73 20 74 | 68 65 20 66 69 72 73 74 |oceeds t|he first|
|00003610| 20 22 2e 22 2e 20 49 66 | 20 22 2e 22 20 69 73 20 | ".". If| "." is |
|00003620| 74 68 65 20 66 69 72 73 | 74 20 63 68 61 72 61 63 |the firs|t charac|
|00003630| 74 65 72 20 6f 66 20 74 | 68 65 20 6e 61 6d 65 2c |ter of t|he name,|
|00003640| 0a 20 20 20 20 20 74 68 | 65 6e 20 74 68 69 73 20 |. th|en this |
|00003650| 22 2e 22 20 69 73 20 69 | 67 6e 6f 72 65 64 2e 20 |"." is i|gnored. |
|00003660| 54 68 65 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 6f |The defi|nition o|
|00003670| 66 20 65 78 74 65 6e 73 | 69 6f 6e 20 63 61 6e 0a |f extens|ion can.|
|00003680| 20 20 20 20 20 62 65 20 | 63 75 73 74 6f 6d 69 7a | be |customiz|
|00003690| 65 64 20 77 69 74 68 20 | 60 64 69 72 65 64 2d 66 |ed with |`dired-f|
|000036a0| 69 6c 65 6e 61 6d 65 2d | 72 65 2d 65 78 74 27 2e |ilename-|re-ext'.|
|000036b0| 0a 2a 62 20 3d 20 66 69 | 6c 65 20 62 61 73 65 20 |.*b = fi|le base |
|000036c0| 6e 61 6d 65 0a 20 20 20 | 20 20 54 68 69 73 20 69 |name. | This i|
|000036d0| 73 20 74 68 65 20 70 61 | 72 74 20 6f 66 20 74 68 |s the pa|rt of th|
|000036e0| 65 20 66 69 6c 65 20 6e | 61 6d 65 20 77 69 74 68 |e file n|ame with|
|000036f0| 6f 75 74 20 64 69 72 65 | 63 74 6f 72 79 20 74 68 |out dire|ctory th|
|00003700| 61 74 20 70 72 65 63 65 | 64 65 73 0a 20 20 20 20 |at prece|des. |
|00003710| 20 74 68 65 20 65 78 74 | 65 6e 73 69 6f 6e 2e 0a | the ext|ension..|
|00003720| 2a 76 20 3d 20 66 69 6c | 65 20 6e 61 6d 65 20 77 |*v = fil|e name w|
|00003730| 69 74 68 20 6f 75 74 20 | 76 65 72 73 69 6f 6e 20 |ith out |version |
|00003740| 63 6f 6e 74 72 6f 6c 20 | 65 78 74 65 6e 73 69 6f |control |extensio|
|00003750| 6e 20 28 69 2e 65 2e 20 | 22 2c 76 22 29 0a 2a 7a |n (i.e. |",v").*z|
|00003760| 20 3d 20 66 69 6c 65 20 | 6e 61 6d 65 20 77 69 74 | = file |name wit|
|00003770| 68 6f 75 74 20 63 6f 6d | 70 72 65 73 73 69 6f 6e |hout com|pression|
|00003780| 20 65 78 74 65 6e 73 69 | 6f 6e 0a 20 20 20 20 20 | extensi|on. |
|00003790| 28 69 2e 65 2e 20 22 2e | 5a 22 2c 20 22 2e 7a 22 |(i.e. ".|Z", ".z"|
|000037a0| 2c 20 6f 72 20 22 2e 67 | 7a 22 29 0a 0a 53 68 65 |, or ".g|z")..She|
|000037b0| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 73 20 61 72 65 20 |ll comma|nds are |
|000037c0| 64 69 76 69 64 65 64 20 | 69 6e 74 6f 20 77 6f 72 |divided |into wor|
|000037d0| 64 73 20 73 65 70 61 72 | 61 74 65 64 20 62 79 20 |ds separ|ated by |
|000037e0| 73 70 61 63 65 73 2e 20 | 54 68 65 6e 20 66 6f 72 |spaces. |Then for|
|000037f0| 20 65 61 63 68 0a 77 6f | 72 64 20 74 68 65 20 66 | each.wo|rd the f|
|00003800| 69 6c 65 20 6e 61 6d 65 | 20 74 72 61 6e 73 66 6f |ile name| transfo|
|00003810| 72 6d 65 72 73 20 61 72 | 65 20 61 70 70 6c 69 65 |rmers ar|e applie|
|00003820| 64 20 74 6f 20 74 68 65 | 20 6c 69 73 74 20 6f 66 |d to the| list of|
|00003830| 20 66 69 6c 65 73 2c 20 | 74 68 65 20 72 65 73 75 | files, |the resu|
|00003840| 6c 74 0a 63 6f 6e 63 61 | 74 65 6e 61 74 65 64 20 |lt.conca|tenated |
|00003850| 74 6f 67 65 74 68 65 72 | 20 61 6e 64 20 73 75 62 |together| and sub|
|00003860| 73 74 69 74 75 74 65 64 | 20 66 6f 72 20 74 68 65 |stituted| for the|
|00003870| 20 77 6f 72 64 20 69 6e | 20 74 68 65 20 73 68 65 | word in| the she|
|00003880| 6c 6c 20 63 6f 6d 6d 61 | 6e 64 2e 0a 0a 46 6f 72 |ll comma|nd...For|
|00003890| 20 65 78 61 6d 70 6c 65 | 0a 20 20 20 63 6d 64 20 | example|. cmd |
|000038a0| 2d 61 20 2a 66 20 2d 62 | 20 2a 64 2a 62 2e 66 69 |-a *f -b| *d*b.fi|
|000038b0| 7a 7a 6c 65 20 61 70 70 | 6c 69 65 64 20 74 6f 20 |zzle app|lied to |
|000038c0| 2f 66 6f 6f 2f 62 61 72 | 20 61 6e 64 20 2f 6c 61 |/foo/bar| and /la|
|000038d0| 2f 64 69 2f 64 61 20 72 | 65 73 75 6c 74 73 20 69 |/di/da r|esults i|
|000038e0| 6e 0a 20 20 20 63 6d 64 | 20 2d 61 20 2f 66 6f 6f |n. cmd| -a /foo|
|000038f0| 2f 62 61 72 20 2f 6c 61 | 2f 64 69 2f 64 61 20 2d |/bar /la|/di/da -|
|00003900| 62 20 2f 66 6f 6f 2f 62 | 61 72 2e 66 69 7a 7a 6c |b /foo/b|ar.fizzl|
|00003910| 65 20 2f 6c 61 2f 64 69 | 2f 64 61 2e 66 69 7a 7a |e /la/di|/da.fizz|
|00003920| 6c 65 0a 0a 54 68 65 20 | 22 6f 6e 2d 65 61 63 68 |le..The |"on-each|
|00003930| 22 20 70 72 65 66 69 78 | 65 73 20 5c 5b 75 6e 69 |" prefix|es \[uni|
|00003940| 76 65 72 73 61 6c 2d 61 | 72 67 75 6d 65 6e 74 5d |versal-a|rgument]|
|00003950| 20 61 6e 64 20 30 2c 20 | 61 6c 73 6f 20 61 70 70 | and 0, |also app|
|00003960| 6c 79 20 77 68 69 6c 65 | 0a 75 73 69 6e 67 20 66 |ly while|.using f|
|00003970| 69 6c 65 20 74 72 61 6e | 73 66 6f 72 6d 65 72 73 |ile tran|sformers|
|00003980| 2e 20 41 73 20 77 65 6c | 6c 2c 20 77 68 65 6e 20 |. As wel|l, when |
|00003990| 75 73 69 6e 67 20 66 69 | 6c 65 2d 74 72 61 6e 73 |using fi|le-trans|
|000039a0| 66 6f 72 6d 65 72 73 20 | 2a 20 73 74 69 6c 6c 0a |formers |* still.|
|000039b0| 72 65 70 72 65 73 65 6e | 74 73 20 74 68 65 20 66 |represen|ts the f|
|000039c0| 69 6c 65 20 6e 61 6d 65 | 20 72 65 6c 61 74 69 76 |ile name| relativ|
|000039d0| 65 20 74 6f 20 74 68 65 | 20 63 75 72 72 65 6e 74 |e to the| current|
|000039e0| 20 64 69 72 65 63 74 6f | 72 79 2e 20 4e 6f 74 20 | directo|ry. Not |
|000039f0| 74 68 61 74 20 74 68 69 | 73 0a 64 69 66 66 65 72 |that thi|s.differ|
|00003a00| 73 20 66 72 6f 6d 20 2a | 66 2c 20 77 68 69 63 68 |s from *|f, which|
|00003a10| 20 61 6c 77 61 79 73 20 | 72 65 70 72 65 73 65 6e | always |represen|
|00003a20| 74 73 20 74 68 65 20 66 | 75 6c 6c 20 70 61 74 68 |ts the f|ull path|
|00003a30| 6e 61 6d 65 2e 0a 0a 41 | 20 22 5c 22 20 63 61 6e |name...A| "\" can|
|00003a40| 20 61 6c 77 61 79 73 20 | 62 65 20 75 73 65 64 20 | always |be used |
|00003a50| 74 6f 20 71 75 6f 74 65 | 20 61 6e 79 20 63 68 61 |to quote| any cha|
|00003a60| 72 61 63 74 65 72 20 68 | 61 76 69 6e 67 20 73 70 |racter h|aving sp|
|00003a70| 65 63 69 61 6c 20 6d 65 | 61 6e 69 6e 67 2e 0a 46 |ecial me|aning..F|
|00003a80| 6f 72 20 65 78 61 6d 70 | 6c 65 2c 20 69 66 20 74 |or examp|le, if t|
|00003a90| 68 65 20 63 75 72 72 65 | 6e 74 20 64 69 72 65 63 |he curre|nt direc|
|00003aa0| 74 6f 72 79 20 69 73 20 | 2f 6c 61 2c 20 74 68 65 |tory is |/la, the|
|00003ab0| 6e 20 2a 6e 20 61 70 70 | 6c 69 65 64 0a 74 6f 20 |n *n app|lied.to |
|00003ac0| 2f 6c 61 2f 64 69 2f 64 | 61 20 72 65 74 75 72 6e |/la/di/d|a return|
|00003ad0| 73 20 6c 61 2c 20 77 68 | 65 72 65 61 73 20 2a 5c |s la, wh|ereas *\|
|00003ae0| 6e 20 72 65 74 75 72 6e | 73 20 64 69 2f 64 61 6e |n return|s di/dan|
|00003af0| 2e 20 53 69 6d 69 6c 61 | 72 6c 79 2c 0a 22 2a 64 |. Simila|rly,."*d|
|00003b00| 5c 20 2a 6e 22 20 72 65 | 74 75 72 6e 73 20 22 2f |\ *n" re|turns "/|
|00003b10| 6c 61 2f 64 69 20 64 61 | 22 2e 0a 0a 54 68 65 20 |la/di da|"...The |
|00003b20| 70 72 65 66 69 78 20 63 | 68 61 72 61 63 74 65 72 |prefix c|haracter|
|00003b30| 20 66 6f 72 20 66 69 6c | 65 20 6e 61 6d 65 20 74 | for fil|e name t|
|00003b40| 72 61 6e 73 66 6f 72 6d | 65 72 73 20 69 73 20 61 |ransform|ers is a|
|00003b50| 6c 77 61 79 73 20 74 68 | 65 20 73 61 6d 65 20 61 |lways th|e same a|
|00003b60| 73 0a 60 64 69 72 65 64 | 2d 66 69 6c 65 2d 77 69 |s.`dired|-file-wi|
|00003b70| 6c 64 63 61 72 64 27 2e | 1f 0a 28 64 65 66 61 6c |ldcard'.|..(defal|
|00003b80| 69 61 73 20 27 64 69 72 | 65 64 2d 64 6f 2d 73 68 |ias 'dir|ed-do-sh|
|00003b90| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 20 23 5b 28 63 |ell-comm|and #[(c|
|00003ba0| 6f 6d 6d 61 6e 64 20 61 | 72 67 20 66 69 6c 65 73 |ommand a|rg files|
|00003bb0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 69 6e 2d 62 61 | &option|al in-ba|
|00003bc0| 63 6b 67 72 6f 75 6e 64 | 29 20 22 c0 c1 5c 6e 5c |ckground|) "..\n\|
|00003bd0| 22 ab 88 5c 6e c3 89 94 | 4f 12 c4 15 0e 06 c7 6b |"..\n...|O......k|
|00003be0| ae 87 0e 06 c8 6b ad 81 | c9 1e 5c 6e cb cc 0e 0d |.....k..|..\n....|
|00003bf0| 5c 22 1e 0e cf 20 1e 09 | cc 0e 09 21 1e 10 8a 0e |\"... ..|...!....|
|00003c00| 0e ac 9b 0d ab 8a d1 5c | 6e 0e 09 c4 23 88 82 62 |.......\|n...#..b|
|00003c10| 01 d1 5c 6e 0e 09 d2 23 | 88 d3 d4 21 88 82 62 01 |..\n...#|...!..b.|
|00003c20| 0d ab a5 d1 d5 5c 6e 0e | 0e 0e 10 0e 5c 6e 24 0e |.....\n.|....\n$.|
|00003c30| 09 0e 06 d6 6b ab 86 d7 | 5c 6e d8 51 aa 88 d9 5c |....k...|\n.Q...\|
|00003c40| 6e da 0e 09 db b0 05 23 | 88 82 62 01 0e 5c 6e 83 |n......#|..b..\n.|
|00003c50| 53 01 dc d4 21 d2 89 89 | 89 89 89 1e 1d 1e 1e 1e |S...!...|........|
|00003c60| 1f 1e 20 1e 21 1e 5c 22 | 89 1e 23 ab 89 8a 0e 23 |.. .!.\"|..#....#|
|00003c70| 71 88 e4 20 88 29 0e 0e | ab f9 0e 0e 40 16 1f 0e |q.. .)..|....@...|
|00003c80| 5c 6e c9 61 ab 94 e5 e6 | e7 0e 1f 21 21 21 16 20 |\n.a....|...!!!. |
|00003c90| e8 0e 20 e9 5c 6e 52 16 | 21 aa 8b 5c 6e 16 21 0e |.. .\nR.|!..\n.!.|
|00003ca0| 20 ac 84 0e 10 16 20 d1 | d5 0e 21 0e 1f 43 0e 20 | ..... .|..!..C. |
|00003cb0| d2 24 0e 20 d2 c4 24 89 | 16 1e a8 ab b1 0e 1e c3 |.$. ..$.|........|
|00003cc0| 55 ac ab 8a 0e 0d 47 0e | 1f 0e 0e b6 47 5a 0e 0d |U.....G.|....GZ..|
|00003cd0| 38 1e 2a 0e 2b ab 8f ec | 0e 2a 21 ab 89 0e 2b 1e |8.*.+...|.*!...+.|
|00003ce0| 2d ee ef 21 88 29 0e 2a | 0e 5c 22 42 16 5c 22 2a |-..!.).*|.\"B.\"*|
|00003cf0| 0e 0e 41 89 16 0e ac 07 | 0e 5c 22 ab aa 0e 5c 22 |..A.....|.\"...\"|
|00003d00| 47 1e 30 0e 2b ab 8d f1 | f2 0e 30 f3 0e 30 21 0e |G.0.+...|..0..0!.|
|00003d10| 2b 24 aa 84 f3 0e 30 21 | 16 1d f4 70 f5 5c 6e 0e |+$....0!|...p.\n.|
|00003d20| 5c 22 24 88 f4 70 c4 5c | 22 88 29 d3 d4 0e 1d 5c |\"$..p.\|".)....\|
|00003d30| 22 88 2e 07 aa 8f f6 f7 | 5c 6e 47 5a f8 d2 0e 0e |".......|\nGZ....|
|00003d40| 24 88 d3 d4 21 88 29 0d | ae 86 f9 1e 3a fb 20 29 |$...!.).|....:. )|
|00003d50| 2c 87 22 20 5b 73 74 72 | 69 6e 67 2d 6d 61 74 63 |,." [str|ing-matc|
|00003d60| 68 20 22 5b 20 09 5d 2a | 26 5b 20 09 5d 2a 24 22 |h "[ .]*|&[ .]*$"|
|00003d70| 20 63 6f 6d 6d 61 6e 64 | 20 30 20 74 20 69 6e 2d | command| 0 t in-|
|00003d80| 62 61 63 6b 67 72 6f 75 | 6e 64 20 61 72 67 20 28 |backgrou|nd arg (|
|00003d90| 34 29 20 28 31 36 29 20 | 64 69 72 20 6f 6e 2d 65 |4) (16) |dir on-e|
|00003da0| 61 63 68 20 6d 61 70 63 | 61 72 20 64 69 72 65 64 |ach mapc|ar dired|
|00003db0| 2d 73 68 65 6c 6c 2d 75 | 6e 68 61 6e 64 6c 65 2d |-shell-u|nhandle-|
|00003dc0| 66 69 6c 65 2d 6e 61 6d | 65 20 66 69 6c 65 73 20 |file-nam|e files |
|00003dd0| 75 66 69 6c 65 73 20 64 | 69 72 65 64 2d 63 75 72 |ufiles d|ired-cur|
|00003de0| 72 65 6e 74 2d 64 69 72 | 65 63 74 6f 72 79 20 75 |rent-dir|ectory u|
|00003df0| 64 69 72 20 64 69 72 65 | 64 2d 72 75 6e 2d 73 68 |dir dire|d-run-sh|
|00003e00| 65 6c 6c 2d 63 6f 6d 6d | 61 6e 64 20 6e 69 6c 20 |ell-comm|and nil |
|00003e10| 64 69 72 65 64 2d 72 75 | 6e 2d 73 68 65 6c 6c 2d |dired-ru|n-shell-|
|00003e20| 63 6f 6d 6d 61 6e 64 2d | 63 6c 6f 73 65 6f 75 74 |command-|closeout|
|00003e30| 20 22 2a 53 68 65 6c 6c | 20 43 6f 6d 6d 61 6e 64 | "*Shell| Command|
|00003e40| 20 4f 75 74 70 75 74 2a | 22 20 64 69 72 65 64 2d | Output*|" dired-|
|00003e50| 73 68 65 6c 6c 2d 73 74 | 75 66 66 2d 69 74 20 28 |shell-st|uff-it (|
|00003e60| 31 36 29 20 22 63 64 20 | 3c 64 69 72 3e 3b 20 5c |16) "cd |<dir>; \|
|00003e70| 22 22 20 22 5c 22 5c 6e | 5c 6e 22 20 22 5c 22 22 |"" "\"\n|\n" "\""|
|00003e80| 20 22 5c 22 20 69 6e 20 | 22 20 22 5c 6e 5c 6e 22 | "\" in |" "\n\n"|
|00003e90| 20 67 65 74 2d 62 75 66 | 66 65 72 20 6d 65 73 73 | get-buf|fer mess|
|00003ea0| 61 67 65 20 72 65 74 75 | 72 6e 20 75 66 69 6c 65 |age retu|rn ufile|
|00003eb0| 20 74 68 69 73 2d 64 69 | 72 20 74 68 69 73 2d 63 | this-di|r this-c|
|00003ec0| 6f 6d 6d 61 6e 64 20 66 | 61 69 6c 75 72 65 73 20 |ommand f|ailures |
|00003ed0| 62 75 66 66 20 65 72 61 | 73 65 2d 62 75 66 66 65 |buff era|se-buffe|
|00003ee0| 72 20 64 69 72 65 64 2d | 73 68 65 6c 6c 2d 71 75 |r dired-|shell-qu|
|00003ef0| 6f 74 65 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 64 69 |ote file|-name-di|
|00003f00| 72 65 63 74 6f 72 79 20 | 64 69 72 65 63 74 6f 72 |rectory |director|
|00003f10| 79 2d 66 69 6c 65 2d 6e | 61 6d 65 20 22 63 64 20 |y-file-n|ame "cd |
|00003f20| 22 20 22 3b 20 22 20 66 | 69 6c 65 20 64 69 72 65 |" "; " f|ile dire|
|00003f30| 64 2d 73 68 65 6c 6c 2d | 66 61 69 6c 75 72 65 2d |d-shell-|failure-|
|00003f40| 6d 61 72 6b 65 72 20 64 | 69 72 65 64 2d 67 6f 74 |marker d|ired-got|
|00003f50| 6f 2d 66 69 6c 65 20 64 | 69 72 65 64 2d 6d 61 72 |o-file d|ired-mar|
|00003f60| 6b 65 72 2d 63 68 61 72 | 20 64 69 72 65 64 2d 6d |ker-char| dired-m|
|00003f70| 61 72 6b 20 31 20 6e 75 | 6d 20 66 6f 72 6d 61 74 |ark 1 nu|m format|
|00003f80| 20 22 4d 61 72 6b 65 64 | 20 25 64 20 66 61 69 6c | "Marked| %d fail|
|00003f90| 75 72 65 25 73 20 77 69 | 74 68 20 25 63 2e 22 20 |ure%s wi|th %c." |
|00003fa0| 64 69 72 65 64 2d 70 6c | 75 72 61 6c 2d 73 20 64 |dired-pl|ural-s d|
|00003fb0| 69 72 65 64 2d 6c 6f 67 | 20 22 53 68 65 6c 6c 20 |ired-log| "Shell |
|00003fc0| 63 6f 6d 6d 61 6e 64 20 | 25 73 20 66 61 69 6c 65 |command |%s faile|
|00003fd0| 64 20 28 6e 6f 6e 2d 7a | 65 72 6f 20 65 78 69 74 |d (non-z|ero exit|
|00003fe0| 20 73 74 61 74 75 73 29 | 20 66 6f 72 3a 5c 6e 20 | status)| for:\n |
|00003ff0| 20 25 73 22 20 64 69 72 | 65 64 2d 62 75 6e 63 68 | %s" dir|ed-bunch|
|00004000| 2d 66 69 6c 65 73 20 31 | 30 30 30 30 20 23 5b 28 |-files 1|0000 #[(|
|00004010| 26 72 65 73 74 20 75 66 | 69 6c 65 73 29 20 22 c0 |&rest uf|iles) ".|
|00004020| c1 5c 6e 0b 0c c5 24 0e | 06 c5 23 88 c5 87 22 20 |.\n...$.|..#..." |
|00004030| 5b 64 69 72 65 64 2d 72 | 75 6e 2d 73 68 65 6c 6c |[dired-r|un-shell|
|00004040| 2d 63 6f 6d 6d 61 6e 64 | 20 64 69 72 65 64 2d 73 |-command| dired-s|
|00004050| 68 65 6c 6c 2d 73 74 75 | 66 66 2d 69 74 20 63 6f |hell-stu|ff-it co|
|00004060| 6d 6d 61 6e 64 20 75 66 | 69 6c 65 73 20 75 64 69 |mmand uf|iles udi|
|00004070| 72 20 6e 69 6c 20 64 69 | 72 5d 20 36 5d 20 28 72 |r nil di|r] 6] (r|
|00004080| 65 76 65 72 74 2d 73 75 | 62 64 69 72 73 29 20 64 |evert-su|bdirs) d|
|00004090| 69 72 65 64 2d 6e 6f 2d | 63 6f 6e 66 69 72 6d 20 |ired-no-|confirm |
|000040a0| 64 69 72 65 64 2d 76 65 | 72 69 66 79 2d 6d 6f 64 |dired-ve|rify-mod|
|000040b0| 74 69 6d 65 73 5d 20 39 | 20 28 23 24 20 2e 20 31 |times] 9| (#$ . 1|
|000040c0| 31 37 32 38 29 20 28 6c | 65 74 20 28 28 6f 6e 2d |1728) (l|et ((on-|
|000040d0| 65 61 63 68 20 28 6f 72 | 20 28 65 71 75 61 6c 20 |each (or| (equal |
|000040e0| 27 28 34 29 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |'(4) cur|rent-pre|
|000040f0| 66 69 78 2d 61 72 67 29 | 20 28 65 71 75 61 6c 20 |fix-arg)| (equal |
|00004100| 27 28 31 36 29 20 63 75 | 72 72 65 6e 74 2d 70 72 |'(16) cu|rrent-pr|
|00004110| 65 66 69 78 2d 61 72 67 | 29 29 29 20 28 66 69 6c |efix-arg|))) (fil|
|00004120| 65 73 20 28 64 69 72 65 | 64 2d 67 65 74 2d 6d 61 |es (dire|d-get-ma|
|00004130| 72 6b 65 64 2d 66 69 6c | 65 73 20 6e 69 6c 20 28 |rked-fil|es nil (|
|00004140| 61 6e 64 20 28 6e 6f 74 | 20 28 63 6f 6e 73 70 20 |and (not| (consp |
|00004150| 63 75 72 72 65 6e 74 2d | 70 72 65 66 69 78 2d 61 |current-|prefix-a|
|00004160| 72 67 29 29 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |rg)) cur|rent-pre|
|00004170| 66 69 78 2d 61 72 67 29 | 29 29 20 28 64 69 72 20 |fix-arg)|)) (dir |
|00004180| 28 61 6e 64 20 28 6e 6f | 74 20 28 65 71 75 61 6c |(and (no|t (equal|
|00004190| 20 63 75 72 72 65 6e 74 | 2d 70 72 65 66 69 78 2d | current|-prefix-|
|000041a0| 61 72 67 20 27 28 31 36 | 29 29 29 20 28 64 69 72 |arg '(16|))) (dir|
|000041b0| 65 64 2d 63 75 72 72 65 | 6e 74 2d 64 69 72 65 63 |ed-curre|nt-direc|
|000041c0| 74 6f 72 79 29 29 29 29 | 20 28 6c 69 73 74 20 28 |tory))))| (list (|
|000041d0| 64 69 72 65 64 2d 72 65 | 61 64 2d 73 68 65 6c 6c |dired-re|ad-shell|
|000041e0| 2d 63 6f 6d 6d 61 6e 64 | 20 28 63 6f 6e 63 61 74 |-command| (concat|
|000041f0| 20 28 69 66 20 64 69 72 | 20 28 66 6f 72 6d 61 74 | (if dir| (format|
|00004200| 20 22 21 20 69 6e 20 25 | 73 20 22 20 28 64 69 72 | "! in %|s " (dir|
|00004210| 65 64 2d 61 62 62 72 65 | 76 69 61 74 65 2d 66 69 |ed-abbre|viate-fi|
|00004220| 6c 65 2d 6e 61 6d 65 20 | 64 69 72 29 29 20 22 63 |le-name |dir)) "c|
|00004230| 64 20 3c 64 69 72 3e 3b | 20 21 20 22 29 20 22 6f |d <dir>;| ! ") "o|
|00004240| 6e 20 22 20 28 69 66 20 | 6f 6e 2d 65 61 63 68 20 |n " (if |on-each |
|00004250| 22 65 61 63 68 20 22 29 | 20 22 25 73 3a 20 22 29 |"each ")| "%s: ")|
|00004260| 20 28 61 6e 64 20 28 6e | 6f 74 20 6f 6e 2d 65 61 | (and (n|ot on-ea|
|00004270| 63 68 29 20 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |ch) curr|ent-pref|
|00004280| 69 78 2d 61 72 67 29 20 | 28 69 66 20 64 69 72 20 |ix-arg) |(if dir |
|00004290| 28 6d 61 70 63 61 72 20 | 28 66 75 6e 63 74 69 6f |(mapcar |(functio|
|000042a0| 6e 20 28 6c 61 6d 62 64 | 61 20 28 66 6e 29 20 28 |n (lambd|a (fn) (|
|000042b0| 64 69 72 65 64 2d 6d 61 | 6b 65 2d 72 65 6c 61 74 |dired-ma|ke-relat|
|000042c0| 69 76 65 20 66 6e 20 64 | 69 72 20 74 29 29 29 20 |ive fn d|ir t))) |
|000042d0| 66 69 6c 65 73 29 20 66 | 69 6c 65 73 29 29 20 63 |files) f|iles)) c|
|000042e0| 75 72 72 65 6e 74 2d 70 | 72 65 66 69 78 2d 61 72 |urrent-p|refix-ar|
|000042f0| 67 20 66 69 6c 65 73 20 | 6e 69 6c 29 29 5d 29 0a |g files |nil))]).|
|00004300| 23 40 31 38 37 20 4c 69 | 6b 65 20 5c 5b 64 69 72 |#@187 Li|ke \[dir|
|00004310| 65 64 2d 64 6f 2d 73 68 | 65 6c 6c 2d 63 6f 6d 6d |ed-do-sh|ell-comm|
|00004320| 61 6e 64 5d 2c 20 62 75 | 74 20 73 74 61 72 74 73 |and], bu|t starts|
|00004330| 20 63 6f 6d 6d 61 6e 64 | 20 69 6e 20 62 61 63 6b | command| in back|
|00004340| 67 72 6f 75 6e 64 2e 0a | 4e 6f 74 65 20 74 68 61 |ground..|Note tha|
|00004350| 74 20 79 6f 75 20 63 61 | 6e 20 74 79 70 65 20 69 |t you ca|n type i|
|00004360| 6e 70 75 74 20 74 6f 20 | 74 68 65 20 63 6f 6d 6d |nput to |the comm|
|00004370| 61 6e 64 20 69 6e 20 69 | 74 73 20 62 75 66 66 65 |and in i|ts buffe|
|00004380| 72 2e 0a 54 68 69 73 20 | 72 65 71 75 69 72 65 73 |r..This |requires|
|00004390| 20 62 61 63 6b 67 72 6f | 75 6e 64 2e 65 6c 20 66 | backgro|und.el f|
|000043a0| 72 6f 6d 20 74 68 65 20 | 63 6f 6d 69 6e 74 20 70 |rom the |comint p|
|000043b0| 61 63 6b 61 67 65 20 74 | 6f 20 77 6f 72 6b 2e 1f |ackage t|o work..|
|000043c0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 64 69 72 65 |.(defali|as 'dire|
|000043d0| 64 2d 64 6f 2d 62 61 63 | 6b 67 72 6f 75 6e 64 2d |d-do-bac|kground-|
|000043e0| 73 68 65 6c 6c 2d 63 6f | 6d 6d 61 6e 64 20 23 5b |shell-co|mmand #[|
|000043f0| 28 63 6f 6d 6d 61 6e 64 | 20 61 72 67 20 66 69 6c |(command| arg fil|
|00004400| 65 73 29 20 22 c0 09 5c | 6e 0b c4 24 87 22 20 5b |es) "..\|n..$." [|
|00004410| 64 69 72 65 64 2d 64 6f | 2d 73 68 65 6c 6c 2d 63 |dired-do|-shell-c|
|00004420| 6f 6d 6d 61 6e 64 20 63 | 6f 6d 6d 61 6e 64 20 61 |ommand c|ommand a|
|00004430| 72 67 20 66 69 6c 65 73 | 20 74 5d 20 35 20 28 23 |rg files| t] 5 (#|
|00004440| 24 20 2e 20 31 37 31 35 | 38 29 20 28 6c 65 74 20 |$ . 1715|8) (let |
|00004450| 28 28 6f 6e 2d 65 61 63 | 68 20 28 6f 72 20 28 65 |((on-eac|h (or (e|
|00004460| 71 75 61 6c 20 27 28 34 | 29 20 63 75 72 72 65 6e |qual '(4|) curren|
|00004470| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 29 20 28 65 |t-prefix|-arg) (e|
|00004480| 71 75 61 6c 20 27 28 31 | 36 29 20 63 75 72 72 65 |qual '(1|6) curre|
|00004490| 6e 74 2d 70 72 65 66 69 | 78 2d 61 72 67 29 29 29 |nt-prefi|x-arg)))|
|000044a0| 20 28 66 69 6c 65 73 20 | 28 64 69 72 65 64 2d 67 | (files |(dired-g|
|000044b0| 65 74 2d 6d 61 72 6b 65 | 64 2d 66 69 6c 65 73 20 |et-marke|d-files |
|000044c0| 6e 69 6c 20 28 61 6e 64 | 20 28 6e 6f 74 20 28 63 |nil (and| (not (c|
|000044d0| 6f 6e 73 70 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |onsp cur|rent-pre|
|000044e0| 66 69 78 2d 61 72 67 29 | 29 20 63 75 72 72 65 6e |fix-arg)|) curren|
|000044f0| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 29 29 29 20 |t-prefix|-arg))) |
|00004500| 28 64 69 72 20 28 61 6e | 64 20 28 6e 6f 74 20 28 |(dir (an|d (not (|
|00004510| 65 71 75 61 6c 20 63 75 | 72 72 65 6e 74 2d 70 72 |equal cu|rrent-pr|
|00004520| 65 66 69 78 2d 61 72 67 | 20 27 28 31 36 29 29 29 |efix-arg| '(16)))|
|00004530| 20 28 64 69 72 65 64 2d | 63 75 72 72 65 6e 74 2d | (dired-|current-|
|00004540| 64 69 72 65 63 74 6f 72 | 79 29 29 29 29 20 28 6c |director|y)))) (l|
|00004550| 69 73 74 20 28 64 69 72 | 65 64 2d 72 65 61 64 2d |ist (dir|ed-read-|
|00004560| 73 68 65 6c 6c 2d 63 6f | 6d 6d 61 6e 64 20 28 63 |shell-co|mmand (c|
|00004570| 6f 6e 63 61 74 20 22 26 | 20 22 20 28 69 66 20 64 |oncat "&| " (if d|
|00004580| 69 72 20 28 66 6f 72 6d | 61 74 20 22 69 6e 20 25 |ir (form|at "in %|
|00004590| 73 20 22 20 28 64 69 72 | 65 64 2d 61 62 62 72 65 |s " (dir|ed-abbre|
|000045a0| 76 69 61 74 65 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |viate-fi|le-name |
|000045b0| 64 69 72 29 29 20 22 63 | 64 20 3c 64 69 72 3e 3b |dir)) "c|d <dir>;|
|000045c0| 20 22 29 20 22 6f 6e 20 | 22 20 28 69 66 20 6f 6e | ") "on |" (if on|
|000045d0| 2d 65 61 63 68 20 22 65 | 61 63 68 20 22 29 20 22 |-each "e|ach ") "|
|000045e0| 25 73 3a 20 22 29 20 28 | 61 6e 64 20 28 6e 6f 74 |%s: ") (|and (not|
|000045f0| 20 6f 6e 2d 65 61 63 68 | 29 20 63 75 72 72 65 6e | on-each|) curren|
|00004600| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 29 20 28 69 |t-prefix|-arg) (i|
|00004610| 66 20 64 69 72 20 28 6d | 61 70 63 61 72 20 28 66 |f dir (m|apcar (f|
|00004620| 75 6e 63 74 69 6f 6e 20 | 28 6c 61 6d 62 64 61 20 |unction |(lambda |
|00004630| 28 66 6e 29 20 28 64 69 | 72 65 64 2d 6d 61 6b 65 |(fn) (di|red-make|
|00004640| 2d 72 65 6c 61 74 69 76 | 65 20 66 6e 20 64 69 72 |-relativ|e fn dir|
|00004650| 20 74 29 29 29 20 66 69 | 6c 65 73 29 20 66 69 6c | t))) fi|les) fil|
|00004660| 65 73 29 29 20 63 75 72 | 72 65 6e 74 2d 70 72 65 |es)) cur|rent-pre|
|00004670| 66 69 78 2d 61 72 67 20 | 66 69 6c 65 73 29 29 5d |fix-arg |files))]|
|00004680| 29 0a 23 40 31 31 32 20 | 50 72 69 6e 74 20 74 68 |).#@112 |Print th|
|00004690| 65 20 6d 61 72 6b 65 64 | 20 28 6f 72 20 6e 65 78 |e marked| (or nex|
|000046a0| 74 20 41 52 47 29 20 66 | 69 6c 65 73 2e 0a 55 73 |t ARG) f|iles..Us|
|000046b0| 65 73 20 74 68 65 20 73 | 68 65 6c 6c 20 63 6f 6d |es the s|hell com|
|000046c0| 6d 61 6e 64 20 63 6f 6d | 69 6e 67 20 66 72 6f 6d |mand com|ing from|
|000046d0| 20 76 61 72 69 61 62 6c | 65 20 60 64 69 72 65 64 | variabl|e `dired|
|000046e0| 2d 70 72 69 6e 74 2d 70 | 72 6f 67 72 61 6d 2d 61 |-print-p|rogram-a|
|000046f0| 6c 69 73 74 27 2e 1f 0a | 28 64 65 66 61 6c 69 61 |list'...|(defalia|
|00004700| 73 20 27 64 69 72 65 64 | 2d 64 6f 2d 70 72 69 6e |s 'dired|-do-prin|
|00004710| 74 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |t #[(&op|tional a|
|00004720| 72 67 20 63 6f 6d 6d 61 | 6e 64 20 66 69 6c 65 73 |rg comma|nd files|
|00004730| 29 20 22 08 ac 85 c1 c2 | 0b 5c 22 10 08 ad 8d c4 |) ".....|.\".....|
|00004740| 0d 08 40 5c 22 88 08 41 | 89 10 ac 74 c2 87 22 20 |..@\"..A|...t.." |
|00004750| 5b 66 69 6c 65 73 20 64 | 69 72 65 64 2d 67 65 74 |[files d|ired-get|
|00004760| 2d 6d 61 72 6b 65 64 2d | 66 69 6c 65 73 20 6e 69 |-marked-|files ni|
|00004770| 6c 20 61 72 67 20 64 69 | 72 65 64 2d 70 72 69 6e |l arg di|red-prin|
|00004780| 74 2d 66 69 6c 65 20 63 | 6f 6d 6d 61 6e 64 5d 20 |t-file c|ommand] |
|00004790| 34 20 28 23 24 20 2e 20 | 31 38 30 35 36 29 20 28 |4 (#$ . |18056) (|
|000047a0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 ab 86 c1 08 |byte-cod|e ".....|
|000047b0| 21 10 aa 85 c2 c3 0c 5c | 22 10 c5 c6 0e 07 5c 22 |!......\|".....\"|
|000047c0| 1e 08 c2 c9 0e 08 5c 22 | 1e 5c 6e 0c 1e 0b 0e 08 |......\"|.\n.....|
|000047d0| 40 1e 0c cd 08 21 18 c6 | 1e 0e c6 1e 0f c6 1e 10 |@....!..|........|
|000047e0| d1 c0 d2 d3 23 88 0e 0c | ab a2 0e 0b ab 9e 0e 0f |....#...|........|
|000047f0| ac 9a d4 0e 0b 40 40 0e | 0c 5c 22 ab 88 0e 0b 40 |.....@@.|.\"....@|
|00004800| 41 16 0f aa 66 0e 0b 41 | 89 16 0b ac 62 0e 0f ab |A...f..A|....b...|
|00004810| 94 0e 0f 08 b6 89 16 0e | ab 8b d5 0e 0e 40 08 5c |........|.....@.\|
|00004820| 22 0e 0f 43 a4 10 d6 d7 | 0e 0f d8 0e 07 0e 5c 6e |"..C....|......\n|
|00004830| c0 26 06 16 10 0e 07 0e | 10 0e 08 45 2e 08 87 22 |.&......|...E..."|
|00004840| 20 5b 64 69 72 65 64 2d | 70 72 69 6e 74 2d 68 69 | [dired-|print-hi|
|00004850| 73 74 6f 72 79 20 64 69 | 72 65 64 2d 75 6e 69 71 |story di|red-uniq|
|00004860| 75 65 66 79 2d 6c 69 73 | 74 20 6d 61 70 63 61 72 |uefy-lis|t mapcar|
|00004870| 20 63 64 72 20 64 69 72 | 65 64 2d 70 72 69 6e 74 | cdr dir|ed-print|
|00004880| 2d 70 72 6f 67 72 61 6d | 2d 61 6c 69 73 74 20 64 |-program|-alist d|
|00004890| 69 72 65 64 2d 67 65 74 | 2d 6d 61 72 6b 65 64 2d |ired-get|-marked-|
|000048a0| 66 69 6c 65 73 20 6e 69 | 6c 20 63 75 72 72 65 6e |files ni|l curren|
|000048b0| 74 2d 70 72 65 66 69 78 | 2d 61 72 67 20 66 69 6c |t-prefix|-arg fil|
|000048c0| 65 73 20 23 5b 28 66 6e | 29 20 22 c0 09 c2 20 c3 |es #[(fn|) "... .|
|000048d0| 23 87 22 20 5b 64 69 72 | 65 64 2d 6d 61 6b 65 2d |#." [dir|ed-make-|
|000048e0| 72 65 6c 61 74 69 76 65 | 20 66 6e 20 64 69 72 65 |relative| fn dire|
|000048f0| 64 2d 63 75 72 72 65 6e | 74 2d 64 69 72 65 63 74 |d-curren|t-direct|
|00004900| 6f 72 79 20 74 5d 20 34 | 5d 20 72 65 6c 2d 66 69 |ory t] 4|] rel-fi|
|00004910| 6c 65 73 20 61 6c 69 73 | 74 20 66 69 72 73 74 20 |les alis|t first |
|00004920| 63 6f 70 79 2d 73 65 71 | 75 65 6e 63 65 20 65 6c |copy-seq|uence el|
|00004930| 74 20 69 6e 69 74 69 61 | 6c 20 63 6f 6d 6d 61 6e |t initia|l comman|
|00004940| 64 20 70 75 74 20 6e 6f | 2d 64 65 66 61 75 6c 74 |d put no|-default|
|00004950| 20 74 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 | t strin|g-match |
|00004960| 64 65 6c 71 20 64 69 72 | 65 64 2d 6d 61 72 6b 2d |delq dir|ed-mark-|
|00004970| 72 65 61 64 2d 73 74 72 | 69 6e 67 20 22 50 72 69 |read-str|ing "Pri|
|00004980| 6e 74 20 25 73 20 77 69 | 74 68 3a 20 22 20 70 72 |nt %s wi|th: " pr|
|00004990| 69 6e 74 5d 20 38 29 5d | 29 0a 28 64 65 66 61 6c |int] 8)]|).(defal|
|000049a0| 69 61 73 20 27 64 69 72 | 65 64 2d 70 72 69 6e 74 |ias 'dir|ed-print|
|000049b0| 2d 66 69 6c 65 20 23 5b | 28 63 6f 6d 6d 61 6e 64 |-file #[|(command|
|000049c0| 20 66 69 6c 65 29 20 22 | c0 09 c2 5c 22 89 1b ab | file) "|...\"...|
|000049d0| 87 0b c2 0c 09 23 aa 9d | c5 09 c6 20 c7 23 1e 08 |.....#..|... .#..|
|000049e0| c9 ca 0e 08 5c 22 88 cb | cc 0c 09 43 cd 23 21 88 |....\"..|...C.#!.|
|000049f0| c9 ce 0e 08 5c 22 29 29 | 87 22 20 5b 66 69 6e 64 |....\"))|." [find|
|00004a00| 2d 66 69 6c 65 2d 6e 61 | 6d 65 2d 68 61 6e 64 6c |-file-na|me-handl|
|00004a10| 65 72 20 66 69 6c 65 20 | 64 69 72 65 64 2d 70 72 |er file |dired-pr|
|00004a20| 69 6e 74 2d 66 69 6c 65 | 20 68 61 6e 64 6c 65 72 |int-file| handler|
|00004a30| 20 63 6f 6d 6d 61 6e 64 | 20 64 69 72 65 64 2d 6d | command| dired-m|
|00004a40| 61 6b 65 2d 72 65 6c 61 | 74 69 76 65 20 64 69 72 |ake-rela|tive dir|
|00004a50| 65 64 2d 63 75 72 72 65 | 6e 74 2d 64 69 72 65 63 |ed-curre|nt-direc|
|00004a60| 74 6f 72 79 20 74 20 72 | 65 6c 2d 66 69 6c 65 20 |tory t r|el-file |
|00004a70| 6d 65 73 73 61 67 65 20 | 22 53 70 6f 6f 6c 69 6e |message |"Spoolin|
|00004a80| 67 20 25 73 2e 2e 2e 22 | 20 73 68 65 6c 6c 2d 63 |g %s..."| shell-c|
|00004a90| 6f 6d 6d 61 6e 64 20 64 | 69 72 65 64 2d 74 72 61 |ommand d|ired-tra|
|00004aa0| 6e 73 2d 63 6f 6d 6d 61 | 6e 64 20 22 22 20 22 53 |ns-comma|nd "" "S|
|00004ab0| 70 6f 6f 6c 69 6e 67 20 | 25 73 2e 2e 2e 64 6f 6e |pooling |%s...don|
|00004ac0| 65 22 5d 20 36 5d 29 0a | |e"] 6]).| |
+--------+-------------------------+-------------------------+--------+--------+
